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til de kommende 6 nr.og derfor 
udkommer næste blad først engang i 
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Fra den 1. August får klubben ny 
formand idet at jeg efter sommer¬ 
ferien får for travlt til at passe 
dette embede. Jeg vil dog dikkert 
få tid til at dukke op hist og her 
inde i bladet. 


Skulle du komme til at kede dig i 
sommerferien (det kan jo blive 
regnvejr) hvad så med at lave noger 
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LABYRINT 


LABYRINT 

10 Hr************************ 

20 * * 

30 * LABYRINT EN KLASSIKER * 

40 * * 

50 * UDVALGT TIL SYNTAXEN * 

60 * * 

70 * AF JOHNNY B SILKEBORG * 

80 * * 

90 ************************* 

100 CLEAR 500 

110 ONSTOPGOSUB2010:STOPON 

120 N-RND(-TIME):CO-8192 

130 DEFUSR0-&H41:DEFUSR1-&H44 

140 COLOR8,1,1:KEYOFF 

150 CLS:SCREEN2:OPEN"GRP:" FOR OUTP 

UT AS #1:COLOR13 

160 X-6:Y-7:A$-" SYN-TAXEN" 
: GOSUB1970 

170 COLOR 14:X-4:Y-16:A$-"Taste : 

J - JOYSTICK":GOSUB1970 

180 X-13:Y-18:A$-"T - TASTATUR":G 

OSUB1980 

190 I$-INKEY$:IFI"THEN190 

200 CN-INT(INSTR(" TtJj",I$)/2)-1 

210 IFCN<0THEN190 

220 SCREEN1,0:WIDTH 32 

230 LI“3:TI-999 

240 GOSUB 850 

250 FOR Q-1TO 4:H$-"":C-0:READ M,H$ 

260 FOR W-l TO LEN(H$) STEP 2 

270 VPOKE M* 8+G,VAL("&H"+MID$(H$,W, 

2) ) :C-C+1:NEXT W,Q 

280 H$(0)-"3C7EDBFFE77E5AA5" 

290 FORQ-OTOl:SP$-"" 

300 FORW-1TO LEN(H$(Q)) STEP 2 
310 SP$-SP$+CHR$(VAL("&H"+MID$(H$(Q 
), W, 2))):NEXT W:SPRITE$(Q)-SP$:NEXT 
Q 

320 M(0)-9:N(0)-10 
330 M(l)-9:N(l)-20 
340 M(2)-19:N(2)-5 
350 M(3)-19:N(3)-22 
360 U-USRl(O) 

370 ON RO GOSUB 1100,1260,1430,890, 
1590,1730 

380 V-6223:VPOKE V,96 

390 CR(0)-8:CR(1)-13 

400 CR(2)-8:CR(3)-1 

410 FORB-0TO3:PUTSPRITE B,(N(B)*8,M 

(B)*8-1),CR(B),0:NEXT B 

420 S-STICK(CN) 

>30 X-32*(S-l)-(S-3)-32*(S-5)+(S-7) 
40 IF SOO THEN SC-SC+1 
50 IFS-OTHEN 510 
40 W-VPEEK(V+X) 


470 IF W-120 OR W-121 THEN 510 
480 IF W-122 THEN 760 
490 VPOKE V,121:V-V+X:VPOKE V,96 
500 IFV->6860 THEN 690 
510 IFBB-0 THEND-D+1:IFD-4 THEN BB- 
1 

520 IFBB-1 THEND-D-1:IFD-0 THENBB-0 
530 TI-TI—1:IFTI-OTHENGOTOl030 
540 IF STRIG(CN) THEN 760 
550 IFVPEEK(32*M(0)+N(0)+6144)-96 T 
HEN760 

560 IFVPEEK(32*M(1)+N(1)+6144)-96 T 
HEN760 

570 IFVPEEK(32*M(2)+N(2)+6144)-96 T 
HEN760 

580 IFVPEEK(32*M(3)+N(3)+6144)-96 T 
HEN760 

590 A-RND(-TIME) 

600 A-INT(RND(1)*6)+1:GOTO710 
610 P-VPEEK(32*(M(D)+H)+N(D)+G+6144 
) 

620 IFP-96 THEN 760 

630 IFP>119THEN680 

640 M(D)-M(D)+H:N(D)-N(D)+G 

650 PUTSPRITE D,(N(D)*8,M(D)*8-1) 

660 LOCATE 16,0:PRINT SC 

670 LOCATE 26,0:PRINT TI 

680 GOTO 420 

690 RO-RO+1:SC-SC+50:V-6191:R2-1:ON 
RO GOSUBllOO,1260,1430,890,1590,17 
30 

700 V-6223:VPOKE V,96:GOTO420 

710 ON A GOTO 720,730,720,730,740,7 

50 

720 G-l:H-0:G0T0610 
730 G—1 :H-0 :GOTO610 
740 H—1 :G=0 :GOTO610 
750 H-1:G-0:G0T0610 
760 REM 

770 SOUND 6,31:SOUND 7,1:SOUND8,16 
780 SOUND12,100:SOUND 13,8 
790 FOR T-l T0600:NEXT T 
800 S0UND8,0 

810 VPOKEV,32:LI-LI-1:FORTL-1TO250: 
NEXTTL:LOCATE 6,0:PRINT LI 
820 FOR TL-1 TO 500:NEXT TL 
830 FOR S-0 T02:PUTSPRITE S,(-24,0) 

:NEXT S:IFLI-0 THEN1030 
840 GOTO 360 

850 U-USRO(O):COLOR1,15,15 

860 VPOKE CO+12,96:VPOKE CO+12,64 

870 VPOKE CO+15,&H47 

880 REM SCREENS 

890 LOCATE 0,22 

900 IF R2-1 THEN N(0)-10:M(0)-9:N(1 
)-20:M(1)-9 

910 IF R2-1 THENN(2)-5:M(2)-19:N(3) 
-22:M(3)-19 









XX 


*-*-*--*- LABYRINT *-*--*--*- 



920 PRINT 11 xxxxxxxxxxxxxxxxxxxxxxxx 
xxxxx x 

X X xxxxxxxx xxxxxxx xxxxxxxx x" 
930 PRINT" x 

X XXXXX XXXXXXXX XXXXXXXX XXX 
XX X X" 

940 PRINT" x xxxxxxxxxx x x xxxxxxx 
XXX X X XXXXXXXXXX X X xxxxxxxxxx 
XX XX X" 

950 PRINT" xxxxx xxxxxxxx xxxxxxxx 

XXXXX X 

X xxxxxx xxxxxxxxxxxxxxx xxxxxx" 
960 PRINT" x x 

XX X xxxxxxxxxxxx xxxxxxxxxxxx 

X XXX XXX" 

970 PRINT" x xxx xxxxxxxxxxxxxxxxx 
XXX X X xxx xxxxxxxxxxxxxxxxx xxx 

X X X" 

980 PRINT" x xx.xx xxxxxx xxxxxx xx 
XX X xxxxxxxxx xxxxxxx 

XX X X XX XX X x" 

990 PRINT" xxxxxxxxxxxxxxxxxxxxxxxx 

XXXXX 11 

1000 GOSUB 1890 
1010 RETURN 
1020 : 

1030 C0L0R15,4,4:CLS:L0CATE11,5:PRI 
NT"SPIL SLUT" 

1040 FORB-0TO3:PUTSPRITE B,(255,0): 
NEXTB 

1050 LOCATE 4,23:PRINT"ENDNU ET... 

? (J/N) ";:BEEP 

1060 I$-INPUT$(1):IFI$=""THEN1060 
1070 IF I $=» " J"0RI $-" j "THENRUNELSEIF 
I$<>"N"ANDI$<>"n"THEN1060 
1080 SCREENO:END 
1090 : 

1100 N(0)-2:M(0)-4:N(1)-28:M(1)-4 
1110 N(2)-11:M(2)-17:N(3)-18:M(3)-1 
7 

1120 LOCATE 0,22 

1130 PRINT" xxxxxxxxxxxxxxxxxxxxxxx 
xxxxxx" 

1140 PRINT" x 

X xxxxxx xxxxxxxxxxxxxxx xxx 

XXX X x 

1150 PRINT" xxxxxxxxxxxxxx xxxxxxxx 

XXXXXX X 

X X XX XX XX X XX 

1160 PRINT" xxxxxxx 

XX XXXXX XX X 

X XXXXX XX X X 

1170 PRINT" xxxxx x 

X XXXXXX XX 


xxx XX 

1180 PRINT" x x j 

XXXX X xxx 

XXX XX X X XX 

1190 PRINT" xx xx xx 

xxxx X X X X X 

xxx X XX X XX 

1200 PRINT" x z z 

XX Z z 

X xxxxxxxxxxxxxxx xxxxxxxxxxxxxx 

1210 GOSUB1890 

1220 RN-RND(-TIME):RN-INT(RND(1)*3) 
1230 IFRN< 2 THEN VPOKE 6263,122 
1240 IFRN-2 THEN VPOKE 6247,122 
1250 RETURN 

1260 N(0)-2:M(0)-4:N(l)-28:M(l)-4 
1270 N(2)-6:M(2)-17:N(3)-24:M(3)-17 
1280 LOCATE 0,22 

1290 PRINT" xxxxxxxxxxxxxxxxxxxxxxx 
xxxxxx" 

1300 PRINT" x 

X xxxxxxx xxxxxxxxxxxxx xxxx 

XXX XZ X XXXXXXXXXXXXX X zx 
1310 PRINT" xz xx x x xx 

ZX XZ XX XX XX XX 

ZX XXXXXXX X XX X XX X xxxxxxx 

1320 PRINT" x x xxxxxxx x 

X XXXXXXX X XXXXX X xxxx 
XXX XZ X X XXXXXXX XX zx 

1330 PRINT" xz x xxxxxxx x 

zx xz xxxx xxxxxxx xxxx 

zx xxxxxxxxzx xzxxxxxxxx 

1340 PRINT" xxxxxxxxxxxxxx xxxxxxxx 
xxxxxx xxxxxxxx xxxxx 

XXX XZ X XXXXXXXXXXX X zx 

1350 PRINT" xz xxxxxxxxxxxxx 

ZX XZ X XXXXXXXXXXXXX X 

zx xxxxxxx xxxxxxxxxxxxx xxxxxxx 

1360 PRINT" xxxx xxxxxxxxxxxxx x 
xxxxxxx XX 

X X xxxxxxxxxxxxxx xxxxxxxxxxxxxx 

1370 GOSUB1890 

1380 RN-RND(-TIME):RN-INT(RND(1)*3) 
1390 IFRN< 2 THEN VPOKE 6832,122 
1400 IF RN-2 THEN VPOKE 6830,122 
1410 RETURN 
1420 : 





-Tf-M-a-M- LABYRINT -*--*-*■•*■ 


1430 N(0)-22:M(0)-21:N(1)-23:M(1)-8 
1440 N(2)-9:M(2)-8:N(3)-22:M(3)-14 
1450 LOCATE 0,22 

1460 PRINT" xxxxxxxxxxxxxxxxxxxxxxx 
xxxxxx" 

1470 PRINT" x 

X X xxxxxxxxxxxx xxxxxxxxxxx 
X X X X XX 

1480 PRINT" x x xxxxxxxxxxxxxxxxxxx 
xxxx X XX 

XX X XXXXXXXXXXXXXXXXXXXXXXX X X 
1490 PRINT" XXX 

XXXXXX X 

X X XXX xxxxxxxxxx xxxxxxxxxxxxxx 
1500 PRINT" X 

X X XXXXXXXXXXXXXX XX XX 
XX X XXXXXXXXXXXXXX XX xxxx 

1510 PRINT" x xzxzxzxzzx 

zxzxzx xxxxxxxx xxxxxzxxxxxxxxxxx 
XXX xxxxxxxx xxxxxxxxxxxxxxxxxxxx 

1520 PRINT" x 

X xxxxxxxxxxxxxxxxxxxxxxxxxx 

XX X X 

1530 PRINT" xx xxxxxxxxxxxxxxxxxxxx 

XXXXXX X 

X xxxxxxxxxxxxxx xxxxxxxxxxxxxx 
1540 GOSUB1890 

1550 RN-RND(-TIME):RN-INT(RND(1)*3) 
1560 IFRN< 2 THEN VPOKE 6490,32 
1570 IFRN-2 THEN VPOKE 6492,32 
1580 RETURN 

1590 N (0) -15 :M(0) -12 :N(1) -15 :M(1) -4 
1600 N(2)-3:M(2)-19:N(3)-27:M(3)-19 
1610 LOCATE 0,22 

1620 PRINT" xxxxxxxxxxxxxxxxxxxxxxx 
xxxxxx" 

1630 PRINT" xzxzxzxzxzxzxx xzxzxzxz 
CZXZXX xxxxxxxxxxxxxx xxxxxxxxxxx 

XXX X X 

1640 PRINT" xx xxxxxxxxxxxxxxxxxxxx 
XX XX xz xxxxxx xxxxxx 

zx XX X xxxx xxxx X XX 

1550 PRINT" xxxxxxx x xzz zzx x x 
xxxxx xzzzzzx X XXZ ZXX X xzzz 
~ZX XXXXXXX XXX XXX XXXXXXX 

VS60 PRINT" x x xxxx xxxx x 

X XX xxxxxx X XX XX X xxxxxx 
■CX X X XXXX XXXX X X 


1670 PRINT" xxxxxxx x x x xxxx 

XXXXXX XZZZZZX X XX X XX X xzzz 
ZZX XXXXXXX X X XXX X X xxxxxxx 

1680 PRINT" xzzz x x xxxxx x x 

zzzx XXXX XXXX X XXX X XXXX X 
XXX X XX X xx X 

1690 PRINT" x xxxxxxx xxx xxx xxx 
XXXX XX X XX XX X 

X XXXXXXXXXXXXXX XXXXXXXXXXXXXX 

1700 GOSUB 1890 
1710 RETURN 
1720 : 

1730 FORB-OT03:PUTSPRITE B,(C(B),R( 
B)):NEXT B 

1740 FOR B-l TO 5:F0R T-5 T09 
1750 FORR-1TO50:NEXT R:COLOR T,T,T 
1760 NEXT T,B 
1770 COLOR 15,4,4 
1780 LOCATE 0,22 

1790 PRINT:PRINT:PRINT" BRAVO! 

DU ER UDE 1111" 

1800 PRINT:PRINT 

1810 FOR R-1T08:FORT=0TO31 

1820 LOCATE T,22:PRINT"x" 

1830 NEXT T.R 
1840 LOCATE 0,25 

1850 PRINT .-LOCATE 2,23: PRINT"SÅMANG 
E SKRIDT : ";SC; 

1860 PRINT:PRINT:LOCATE 2,23:PRINT" 
FORLØBET TID .... : "jTI; 

1870 PRINT:PRINT:PRINT:PRIMT:PRINT 
1880 GOTO1050 ' 

1890 LOCATE 1,0:PRINT"LIV";LI 
1900 LOCATE 9,0:PRINT SPC(25) 

1910 LOCATE 10,0: PR I NT "SKRIDT" ,- S C 
1920 LOCATE 22,0:PRINT'TID"jTI 
1930 FORB-0TO3 

1940 PUTSPRITE B, (N(B)*8,M(B)*8-1) 
1950 NEXTB 
1960 RETURN 
1970 : 

1980 FORI-OTOl:PRESET(X*8+I,Y*8):PR 
INT#1,A$:NEXT 
1990 RETURN 
2000 : 

2010 SCREEN1:CLS:COLOR 15,4,4 
2020 RETURN1050 
2030 : 

2040 DATA 122,FF81bdA5A5A5bdFF,121, 
3C62FDFDFDFD7E3C,96,183cl83C5A18246 
6,120,7E83FDFDFDFDFD7E 








**** BOG ANMELDELSER 


BOG ANMELDELSER 

Der udkommer flere bøger med tips 
og gode ideer til vore computere. 

Der findes bl.a. en med titlen: 
NSX-BASIC for serious and not-so 
serious applications. 

Bogen er delt op i afsnit om 
generel programmering, datatyper, 
sorteringsrutiner og grafik. 

Dette er langt fra alt hvad bogen 
indeholder. Der er mange 
programmer i, som beskriver de 
forskellige rutiner der er 
omtalt. 


Det er en bog som både begyndere 
og de mere erfarne kan lære af. 
Bogen indeholder mange 

anvisninger til såkaldt seriøse 
programmer, men det betyder jo 
ikke, at man ikke kan anvende de 
samme . principper i mere 

fantasifulde programmer - det er 
formentlig også derfor man har 
givet den en lidt kryptisk titel 
men det bliver den absolut ikke 
ringere af. 


En anden bog som skal omtales er 
en med titlen: IDEAS FOR MSX. 


I indledningen beskrives begrebet 
pseudokode. Det vil sige, at man 
i ord beskriver hvad programmet 
skal udføre. Dette er et ..udmærket 
grundlag for, at begynde på et 
program. 

Derefter beskrives, hvordan man 
programmer struktureret og laver 
flow-charts. Endvidere er der 
beskrevet mange forskellige 
rutiner og loops, som er 
indeholdt i andre programmerings¬ 
sprog, men her er det vist, 
hvordan man kan lave det 
tilsvarende i basic. Beskrivelse 
af vari abe 1 typer og filer mangler 
heller ikke. 

Bogen har også et afsnit om 
sprites, der viser hvordan man 
opbygger sine egne sprites. Den 
omtaler også, definition og 
redefinition af karakterer. 

Et interessant afsnit handler om 
sorterings- og søgemetoder i 
store eller små mængder data. 

Der gives her anvisning på hvilke 
metoder, der er mest hensigtsmæs¬ 
sige efter hvilket behov man har. 

Endelig er der et afsnit om 
grafik. Her vises hvordan man 
laver figurer, grafer og 

søjlediagrammer. Til slut er der 
vist, hvordan man kan lave 
3-dimentionel grafik. 


Det er en bog, som er fyldt med 
programmer (det var den ovenfor- 
omtalte iøvrigt også). 

Denne bog er imidlertid ikke så 
grundig i beskrivelsen af 
programmerne og deres virkemåde. 
Bogen henvender sig nok dels til 
dem der bare hurtigt vil have 
nogle programmer tastet ind 
uden iøvrigt at fordybe sig i 
deres virkemåde, og dels til dem, 
der er løbet tør for ideer, men 
som godt kan gennemskue 

programforløbet i et givet 
program. 

I bogen er der foretaget en 
opdeling i grafikprogrammer, 
s Pil> Utilities (nyttige 

programmer) og et appendix med 
lidt maskinkode. 

Der er ingen tvivl, om at enhver 
kan få gode ideer af disse 
programmer - uanset om det er en 
begynder eller en mere garvet 
programmør. 

Begge de omtalte bøger, 

indeholder nemlig mange 

forklarende REM-sætninger i 
udlistningerne. 

Jeg er ikke sikker på, at din 
boghandler har disse bøger, men 
det gør vel heller ikke noget når 
de kan bestilles hos Datacraft. 


peter 
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BEGYNDER STOF 

For begynderen hermed endnu et par 
småting og småprogrammer der viser 
lidt om hvad vores maskine kan og 
hvordan man griber det an. 

Først et lille program der viser 
alle screen farver og tekst farver 
via VDP kommandoen 

10 SCREEN 0 
13 LOCATE 15,11 
20 PRINT'Hal lo! ! " 

30 FOR 1-0 TO 255 
40 VDP(7)-I 
50 TIME-O 

60 IF TIME < 20 THEN GOTO 60 
70 NEXT 
80 SCREEN 0 

Med Vpoke og Base kan man fylde 
skarmen med et tegn det viser det 
fif lille prg, prøv at ændre tallet 
i Dinie 40 efter kommaet 
OBS skærmen slettes igen ved tryk 
på en tast idet vi bruger input$ 
til at afvente et tastetryk 

10 SCREEN 0 
20 START - BASE (0) 

30 FOR 1 % - START TO START + 960 
40 VPOKE 1 %, 65 
50 NEXT 

60 I$-INPUTS(1) 

70 CLS 

Prøv så denne lille rutine 

10 SCREEN 1 
20 START-BASE(6) 

30 VPOKE(START+8),18 
35 LIST 
40 END 

Jadet gav lidt farver på teksten 
næste lille program sætter en 
sprite på skærmen - en lille mand 

10 SCREEN 2 

20 FOR I-BASE(12) TO BASE(12)+7:REA 
O Nr VPOKE I,N:NEXT 
30 FOR I-BASE(11) TO BASE(11)+7:VPO 
KE 1,18:NEXT 

40 FOR I-BASE(10) TO BASE(10)+255 :V 
3 OKE 1,0:NEXT 
50 GOTO 50 

60 DATA 56,56,16,56,84,16,40,68 


Linie 20 definerer spriten fra 
data sætningen, linie 30 definerer 
farven prøv at ændre værdien 18 
Linie 40 putter spriten i karakter 
koderne, prøv at ændre vpoke 1,0 ti 

vpoke i,0 så får du 255 mænner at 
se på 

Nu kunne det jo være sjovt at få 
lidt bevægelse og det kan vi også 
med Base kommandoen prøv flg prg. 

10 SCREEN 2 

20 FOR I-BASE(12) TO BASE(12)+7:REA 
D N:VPOKE I,N:NEXT 
30 FOR I-BASE(11) TO BASE(11)+7:VPO 
KE I,18:NEXT 

40 FOR I-BASE(10) TO BASE(10)+255 
50 VPOKE 1,0:FOR J-l TO 30:NEXT 
60 VPOKE 1,1:FOR J-l TO 30:NEXT 
70 NEXT 
80 GOTO 40 

90 DATA 56,56,16,56,84,16,40,68 
Nok om Base nu til lidt Draw 
Prøv dette lille prg. eksempel 

10 SCREEN2 

20 DRAW "bml25,100" 

30 FOR 1-4 TO 240 STEP 12 
40 DRAW "S-I;BURD2L2U2RBD" 

50 NEXT I 

60 GOTO 60 

Prøv at ændre værdierne i linie 40 

f. eks FOR 1-2 TO 200 STEP 10 
Leg selv lidt med det 

Til slut en lille rutine der tegner 
en masse circler inden i hinanden 

10 SCREEN 2 

20 FOR L-8 TO 1 STEP -1 

30 CIRCLE (120,100),L*10+5,L 

40 PAINT (120,100),L,L 

50 NEXT L 

60 K-(K+l) MOD 8 

70 FOR L-l TO 8 

80 COLOR-(L,K,K,0) 

90 K-(K+l) MOD 8 
100 NEXT L 
110 GOTO 60 

Ja så får I ikke mere dennegang 
men jeg vender nok frygteligt 
tilbage snart, så indtil da!!! 

Ka I ha det Waug-h 

Johnny B musik 







SOMMER, VDP BASE! 


SOMMER, 

VDP & BASE 

Hvad gør en Computerfreak når det 
bliver sommer og ulideligt at sidde 
indenfor i varmen? 

Jo, han laver sig en 30 meter for¬ 
længerledning og flytter computeren 
m. skærm ud i haven. 

Det er lige hvad jeg har gjort idag 
for så slipper jeg for mine 
forældres sure miner om at 'han' 
altid sidder indenfor med sin 
computer, og så i det gode vejr. 


? VDP(O) er altså det samme som 
? PEEK(&hF3DF). 

Man kan selvfølgelig ikke skrive 
til registrene ved ; at poke i 
tabellen. 

Hvis i slår op i en BASIC-MANUAL 
kan i nok se at der også er en 
VDP(8). VDP(8) kan man KUN læse, 
A=VDP(8) svarer til A=PEEK(&hF3E7) 
eller A=INP(&H99) 

VDP(8) svarer til STATFL der er 
VDP'ens STATUS register, STATUS 
registret fortæller følgende. 


Det er dog ikke af denne grund jeg 
skriver disse spalter, ~ jeg vil 
gerne fortælle jer noget om BASE og 
VDP kommandoerne. 

BASE & VDP er de kommandoer der gør 
den største forskel -på SVI-328 "og 
MSX computere hvad angår BASIC 
sproget. 

Begge kommandoer har noget med 
ViDeoProcessoren at gøre, ViDeoPro- 
cessoren forkortes fremover til 
VDP . 

VDP-kommandoen. 


Vores VDP er en alsidig kreds der 
kan bruges på mange måder. For at 
VDP 1 en kan vide hvordan vi ønsker 
den skal køre har den et antal 
registre hvori vi kan fortælle den 
dette. 

En MSX1 (Også SVI-318/328) har 8 
registre. 

VDP en tillader kun at man skriver 
til registrene 0-7, man kan ikke 
aflæse disse direkte fra portene. 
Smart nok er MSX-basicen indrettet 
på den måde at den når man skriver 
til et VDP register bliver det man 
har skrevet gemt i en tabel i 
systemvariablerne. Når man i basic 
læser et VDP register går basic'en 
ikke via portene men går op i VDP- 
tabelien og fortæller hvad der står 
der. 

F3DFh Vdp reg 0 

F3E0h Vdp reg 1 


F3E6h Vdp reg 7 

F3E7h STATFL: VDP status reg. 


b7=sidste linie i et billede er 
lige genereret. 

b6=der er et sted på skærmen hvor 
mere end 4 sprite er på samme 
linie. 

b5-=To eller flere SPRITE er stødt 
sammen. (On SPRITE) 
b4-0= Nummeret på den 5 sprite på 
en linie. 


HVER gang man læser en VDP i basic 
går computeren op i systemvaria— 
bierne og ALDRIG ud på portene. 
Interuptet sørger for at læse VDP- 
STATUS reg. og opdatere adr F3E7h. 

Man bør ALDRIG OUT'e på portene i 
basic da man kan være uheldig at 
blive 'afbrudt' af interruptet. 
Hvorfor er dette så farligt ? 
(Retorisk spørgsmå1) 

Jo, for at stille et VDP register 
skal man lave to OUT til den "samme 
port (99h) den første OUT er den 
data man ønsker at skrive til reg. 
og den anden OUT fortæller VDP'en 
hvad den skal gøre'med databyten. 
Prøv at se på dette eksempel: 

BASIC INTERRUPT 


OUT&h99,248 

Ld A,INP(&h99) 

OUT&h99,129 


Vi ønsker i et basic program at 
skrive 248 til VDP-reg 1.(Venstre 
spalte) 
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Computeren ønsker selv at læse 
STATUS registret. 

Herved forstyres vores nummer to 
OUT. 

Her er en liste over VDP registrene 
og deres funktioner. 


REG 0: 


b0:=l bruges på PAL vers.til at 
bestemme om der skal mixes et bil¬ 
lede ind gældende som farve nul. 

bl: Mode bit 3 (M3) 

b2-7 bruges ikke på MSX1 


REG 5 


SPRITE attribute table 
REG 6 


SPRITE pattern table adr. 
REG 7 


b7-4 forgrundsfarve i SCREEN 0 
b3-0 baggrundsfarve i SCREEN 0 
samt farven af RAMMEN i 
SCREEN 1-3 

De 3 MODE bit, M1-M3 bestemmer 
hvilken MODE VDP'en er i. 


REG 1: 


bO: =0 normal spritestørrelse. 

=1 sprites forstørres så hvert 
punkt er 2* alm.punkter 

bl: =0 sprites er 8*8 store. 

=1 sprites er 16*16 store. 

b2: =0 (Bruges ikke på MSX1) 

b3: Mode bit 2 

b4: Mode bit 1 

b5: =1 VDP'en genererer interrupt 

til Z80 når sidste linie i 
videobilledet er 1 avet.(d.v.s. 50 i 
sekundet) 

=0 Der genereres ikke interrupt 
b6: “1 Skærmen er tændt, =0 slukket 
b7: =-0 vram=-4K , =1 vranr=16K kredse 


Ml 

0 

0 

0 

1 


M2 

0 

0 

1 

0 


M3 

0 32*24 tekst mode 

1 Grafik mode 
0 MULTI color mode 

0 40*24 tekst mode 


BASE-kommandoen 


Når vi skriver SCREEN 1 i et 
program, så fortæller computeren 
VDP'en,ved hjælp af VDP kommandoen, 
i hvilken mode den skal køre. Men 
det er ikke nok med dette, den skal 
også fortælle på hvilke adresser i 
VRAMMEN vi ønsker at fx. SPRITE 
MØNSTERET skal ligge m.m. 

BASE kommandoen gør det muligt for 
os at ændre disse adresser, igen 
ligger der en tabel i SYSVAR hvori 
disse adresser står. 

Tabellen ligger på denne måde: 


REG 2 


ADR. BASE Navn Beskrivelse. 


NAME tabel adressen 
REG 3 

:OLOUR table adressen 


F3B3H 0 TXTNAM 
F3B5H 1 TXTCOL 
F3B7H 2 TXTCGP 
F3B9H 3 TXTATR 
F3BBH 4 TXTPAT 


;NAME TABLE 
;COLOUR TABLE 
;CHARACTER PATTERN 
;SPRITE ATTRIBUTE 
;SPRITE PATTERN 


REG 4 

D ATTERN table adressen table 


Dette var de som galt for SCREEN0 
bemærk at BASE 1,3 & 4 er uden 
betydning da der ikke kan laves 
sprite i SCREEN 0. Disse muligheder 
er der som i kan se reserveret 
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plads til, hvis nu man senere får 
lavét en bedre videochip.(MSX4 ?) 
Det gør det også nemmere for 
computeren at regne adressen på 
hvor i BASE tabellen den skal finde 
de adresser den skal bruge for at 
initiere de forskellige SCREEN. 

De farver man vælger i SCREENO 
ligger i et VDP-register og altså 
ikke som en tabel i VRAMMEN som i 
de øvrige SCREEN. 

SCREEN 1 


F3BDH 

5 

T32NAM 

NAME table 

F3BFH 

6 

T32COL 

COLOUR table 

F3C1H 

7 

T32CGP 

CHARACTER pattern 

F3C3H 

8 

T32ATR 

SPRITE attribu-te 

F3C5H 

9 

T32PAT 

SPRITE pattern 



SCREEN 

2 

F3C7H 

10 

GRPNAM 

NAME table 

F3C9H 

11 

GRPCOL 

COLOUR table 

F3CBH 

12 

GRPCGP 

CHARACTER pattern 

F3CDH 

13 

GRPATR : 

SPRITE attribute 

F3CFH 

14 

GRPPAT ; 

SPRITE pattern 



SCREEN 3 

F3D1H 

15 

MLTNAM 

NAME table 

F3D3H 

16 

MLTCOL 

COLOUR table 

F3D5H 

17 

MLTCGP 

CHARACTER pattern 

F3D7H 

18 

MLTATR 

SPRITE attribute 

F3D9H 

19 

MLTPAT 

SPRITE pattern 


BASE(16) bruges ikke 


NAME table: 

En 'tabel' der bestemmer hvilke 
karakterer der skal stå i hver 
position på skærmen. 

COLOUR table: 

I SCREEN 1—3 en tabel der fortæller 
forgrund og baggrunds farverne for 
karaktererne. 


SPRITE pattern 

SPRITE mønster generator, heri 
ligger 256 stk 8*8 punkts mønstre 
eller 32 stk 16*16 punkts mønstre. 
Hver af disse 5 tabeller har hver 
sin længde i hver SCREEN. for at 
kunne omlægge dem ordentligt så de 
ikke ligger oven i hinanden må i 
vide hvor lange de er. 


De 5 

tabellers længde i 

hver 

SCREEN 

Skrm! 

tabl 

tab2 

tab3 ! 

tab4! 

tab5! 

0 ! 

3C0h 

/// 

800h! 

/// i 

/// i 

1 ! 

300h 

800h 

800h! 

80h! 

800h! 

2 ! 

300h! 

1800h 

1800h! 

8Oh! 

800h! 

3 ! 

300h! 

///. 

600h! 

80h! 

800h! 


tabl er NAMTAB tab2 er COLTAB 
tab3 er CHGPAT tab4 er SPRATR 
tab5 er SPRPAT 


Nu skal i ikke tro at man bare kan 
vælge helt frit i VRAMmens 16K, der 
er nemlig en del begrænsninger. 


BASE 

Step ! 

BASE 

Step 

BASEO: 

40 Oh ! 

BASE10 

400h 

BASE1: 

40h ! 

BASE11 

2000h 

BASE2: 

800h ! 

BASE12 

2000h 

BASE3: 

80h ! 

BASE13 

80h 

BASE4: 

800h ! 

BASE14 

800h 

BASE5: 

400h ! 

BASE15 

400h 

BASE6: 

40h ! 

BASE16 

40h 

BASE7: 

800h ! 

BASE17 

800h 

BASE8: 

80h ! 

BASE18 

80h 

BASE9: 

800h ! 

BASE19 

800h 


Computeren giver ikke en SYNTAX 
ERROR hvis man skriver en 'skæv' 
adresse. den retter den bare til 
den der ligger tættest nedenunder. 


CHARACTER table: 

Startadressen for mønster tabellen 
der bestemmer hvordan hver 'karak¬ 
ter ' ser ud. 

SPRITE attribute 
4 bytes data for hver sprite: 

Y-.X-kooridinat.mønster nr., farve 


Hvad kan man så egentlig bruge BASE 
til ? 

Her er et eksempel: 

Som vist i tabellen kan BASE(O) kun 
antage værdier med et step på 400h 
Med 16K VRAM er der 16 step a 400h, 
dette giver 16 skærmbilleder. MEN, 
man skal lige huske at der også er 
en tegngenerator BASE(2), der som 
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v- t 1 længdetabel len. fylder 800h 
d. .s 2 af de 16 skærme, vi har så 
14 skærme tilbage. 

De 14 skærmmuligheder i SCREEN 0 
karman fx. bruge til hjælpe—menuer 
eller andet godt. 

Pr?v dette program: 

10 ' Demo af BASE kommandoen 
20 1 på MSX computere. 

30 ' 

40 1 

50 for sk-0 to &h3fff step &h400 
60 !ASE(0)=sk 

70 if sk=base(2) orsk=base(2) +&h400 
thei 100 
80 screen 0 

90 tocate 10,10:?"Skærm nr.";sk/&h4 
00 

100 next 

110 for sk=0 to &h3fff step &h400 

L20 if sk=base(2)orsk=base(2)+&h400 

the» 150 

130 base(0)-sk 

140 for pa-1 to 200:next pa 

150 next sk 

160 goto 110 

I linie 50-100 skriver man noget på 
hver af de 14 tiladte skærme. 
Linie 110-160 vis hver skærm et 
lille stykke tid. 

■ ‘inie 70 & 120 checker om vi vælger 
en sdresse i tegngeneratoren. 

Et tndet brugseksempel; 

I SCREEN2 kan det også være nyttigt 
at SPRITE PAT. - CHARACTER PAT. 

BASE( 14)=BASE(12) 

aan har så mere ram til rådighed og 
kan så fx. have flere forskellige 
ASE? 10). NAME table, og derved 
' urtigt ændre skærmopbygningen. 

^år Sprite PAT = , CHARACTER PAT er 
3t også hurtigt at omdefinere 
karaktererne i den øverste tegn- 
xenerator om, man kan nemlig brucre 

SPRI'TE$(NR)="MØNSTER" 
i kan nu selv eksperimentere med 
3P & BASE-kommandoerne. 


MODIFIKATION AF 
PHILIPS MONITOR 


Er du en af dem der har en CM 8533 
farvemonitor fra PHILIPS så se her. 

CM8533 har et problem hvis man 
kører med 2 computere samtidigt 
hvor den ene kører RGB Analog og 
den anden kører Composite Video. 

RGB-synken i SCARTstikket er nemlig 
■Ført over til composite video ind¬ 
gangen. Dette skal den også hvis 
man ønsker at køre composite video 
via. SCART-stik, men problemet er 
at omskifteren RGB/Composite video 
ikke afbryder RGB-SYNKEN. 

Problemet kan løses ved at klippe 
eller lodde modstanden R504 ud. 
Dette gør det muligt at have 2 
computer tændt samtidigt uden at 
RGB’en forstyrer den anden. 

R504 ligger helt bagerst på 
printpladen, tæt ved SCART stikket. 

PHILIPS har rettet fejlen på deres 
nye monitorer, den gamle model er 
for øvrigt gået ud af produktion. 

Ved at lave dette indgreb mister 
sin garanti på monitoren ! . 

SÅDAN ! 

Hg. 



Hg 
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SVENSKA S ID AN 


Denna gång fortsåtter vi vår gra¬ 
fikskola med att gå igenom hur man 
til Iverkar och projicerar sprites 
med hjalp av VPOKE och VPEEK. I den 
forstå delen av vår grafiksko la 
hade vi en tabe 11 over de olika 
areorna i grafikprocessorn. De som 
vi denna gång kommer att gå igenom 
år, som ni såkert redan listat ut. 
Sprite attribute table och Sprite 
pattern generatorn. 

Sprite pattern generatorn fungerar 
ungefår som kommandot SPRITEn(n) i 
BASIC dvs som den i tidigare av— 
snitt genomgångna Pattern genera¬ 
torn. For de som inté kommer ihåg 
ligger Sprite pattern generatorn 
från adress 3800H-3BFFH. 

Arean fungerar på så sått att du 
lågger in data precis som med pat¬ 
tern generatorn. Så de forstå åtta 
adresserna ti lihor den forstå 8*8 
spriten. De åtta foljande nåsta 
sprite osv. Vid 16*16 sprite år det 
i stål let uppdelat i interval 1 om 
32 istållet for 8. Exempel på spri- 
teti 1lverkning kommer i nedanståen- 
de program. 

Sprite attribut table fungerar som 
BASIC kommandot: 

PUT SPRITE A,(X,Y),F,N 
Sprite attribute table ligger på 
adresserna 1B00H-1B7FH. Den anvån- 
der variablerna ovan enligt foljan¬ 
de system om fyra bytes: 


1 Y-koordinat 

2 X-koordinat 

3 Sprite nummer (=N ovan) 

4 Spritens fårg 


Det hela kommer vi nu att åskådlig- 
gora i nedanstående programsnutt. 


10 COLOR 15,1,1 
20 SCREEN 1 
30 FOR 1=0 TO 15 
40 READ An 

50 VPOKE &H3800+I,VAL("&H"+An) 

60 NEXT I 

70 FOR 1=0 TO' 2 

80 VPOKE &H1B03+I*4,1 

85 VPOKE &H1B00+I*4,92 

90 VPOKE &H1B01 + IM, 119 + 1*9 

100 VPOKE &H1B02+I*4,1 

110 NEXT I 

120 VPOKE &H1B0C,92 

130 VPOKE &H1B0E,0 

140 VPOKE &H1B0F,15 

150 FOR 1=100 TO 157 

•160 VPOKE &H1B0D, I 

170 FOR J=1 TO 10 : NEXT j 

180 NEXT I 

190 FOR 1=158 TO 101 STEP -1 

200 VPOKE &H1B0D,I 

220 FOR J=1 TO 10 : NEXT J 

230 NEXT I 

240 GOTO 150 

250 DATA 00,3C,7E,FF,FF,7E, 3C ,00 
260 DATA FF,FF,FF,FF,FF,FF,FF,FF 

Som synes år detta MYCKET mer oms- 
tåndigt ån det vanligare BASIC-kom- 
mandona SPRITEn(n) och PUT SPRITE. 
Orsaken till att vi tog upp detta 
år att det år lite snabbare samt 
att det år bra att ha kunskaperna 
infor nåsta grafiksko la dår vi kom¬ 
mer att gå igenom sambandet mellan 
VPOKE resp VPEEK kontra OUT och IN. 
Med andra ord hur man gor i maskin- 
språk. Vilket år hemskt anvåndbart. 
Tro mig. 

Då var det vål slut for den hår 
gången. Jag hoppas att ni nu kan 
vad vi hitti lis har lårt er vid det 
hår laget. 

Tack for den hår'gången och må era 
ovånners tangentbord ryka. 

Magnus och Joakim. 
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SPIL MED KIM 


Så er det tid til lidt mental 
afspænding omkring et par nye spil 
til MSX. 

Af: Kim Andersen 


Navn: Vera Cruz 
Firma: Infogrames 

Her er et eventyrspil hvor man 
rigtig kan komme til at agere kri¬ 
mi na'1 detektiv. Du er blevet sat 
til at efterforske selvmordet/mord¬ 
et på den prostituerede Vera Cruz. 
Til hjælp har du en computer hvor 
igennem du kan kommunikere med 
andre politi afdelinger, fængsler 
og andet godtfolk rundt omkring i 
Frankrig, hvor hele afairen udspil¬ 
ler sig. 

Først i spillet skal man under¬ 
søge lejligheden hvor i Vera Cruz 
ligger myrdet, skudt i hjertet. Med 
en cursor rykker man rundt på 
skærmbilledet og kan forstørre dele 
af billedet op. I anden fase af 
spillet bliver man sat foran compu¬ 
teren, og ud fra de oplysninger man 
har fået samlet skal man i gang med 
at finde ud af om Vera Cruz er 
blevet myrdet, og i så fald af 
hvem. 

Spillet er rigtig godt og rea¬ 
listisk lavet. Har man ambitioner 
om at blive pr i vatopdager er dette 
alle tiders øvelse. 

Kvalitet:10 Grafik:9 Action:- 
Lyd: - Betjening:10 Total:9.7 


Navn: Elite 
Firma: Firebird 

Dette er et kombineret arcade/e- 
entyr spil. Spillet foregår ude i 
uramet hvor du i dit rumskib skal 
flyve rundt mellem planeterne og 
sandle med varer. Undervejs støder 
man på et utal af fjender man skal 
kyde i sænk. Spillet er udført i 


ægte 3D streg-grafik, som er ganske 
flot. Spillets dokumentation er et 
helt kapitel for sig. Inde i den 
kraftige papæske finder man først 
et. 50 sider langt eventyr man kan 
læse som optakt til spillet. Deref¬ 
ter en godt 60 sider lang manual, 
en enkelt side med de forskellige 
tasters betydning og til sidst en 
plakat. 

Kvalitet:9 Grafik:10 Action:9 
Lyd:7 Betjening:8 Total :8.6 


Navn: Nemesis 2 
Firma: Konami 

Hver gang man ser et Konami spil 
tænker man at nu kan de da ikke 
lave et flottere spil. Men på det 
utroligste lykkedes det dem gang på 
gang at overgå sig selv. Med dette 
spil sidder man og undres at det 
virkelig "kun" er en MSX 1 som 
spillet kører på. 

Historien kan man, som noget nyt 
hos Konami, læse i begyndelsen af 
spillet. Den handler om en slemmer 
fyr, Dr. Venom, der har invaderet 
planeten Nemesis. Det kan man jo 
ikke ha’, så derfor har man sendt 
rumskibet Metalion ud for at befri 
planeten, og-det er så ens opgave 
at manøvrere rumskibet rundt i de 7 
baner. 

Spillet er fantastisk fængslen¬ 
de, og selvom det høre til i den 
dyre prisklasse synes jeg rigeligt 
det er pengene værd. 

Glemte jeg forresten at nævne at 
spillet naturligvis har en 8 kanals 
lydrhip indbygget- i modulet? 

Kvalitet: 1 l Graf i k: 1 3 Ac t i on : 11 
Lyd:11 Betjening:10 Total:11.2 
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THE PIANOMAN 
(MAKRO) 

HEJ FANS SA ER HER ET RIGTIGT MAKRO 
STYKKE TIL MUSIK COMPUTEREN OG JERES 
MAKRO PROGRAM. 

HVIS DU KØRER MED DISK OG MAKRO II 
SKAL DU TRYKKE CTRL UNDER OPSTARTEN 
DA DU ELLERS IKKE HAR HUKOMMELSE NOK 

GOD FORNØJELSE MED INDTASTNINGEN AF 
DET LANGE PROGRAM SOM OGSÅ KAN KØBES 
I MUCO-BIB 

HVIS DU HAR TASTET DET IND SIDSTE 
GANG SOM ALM BASIC PLAY 
KAN DU BLOT TILRETTE DET IDET EN DEL 
ER HELT DET SAMME 

HEY HEJ FRA JOHNNY B. GOOD JYLLAND 

10 ' ****************************** 
20 ' * * 

30 1 * JOHNNY B MUSIK PRESENTS * 

40 1 * * 

50 1 * THE PIANOMAN DENNE GANG * 

60 ' * * 

70 ' * KUN TIL MUSIK COMPUTER * 

80 1 * * 

90 1 * OG MAKRO SYNTAKSEN 1988 * 

100 '* * 

120 ' 

130 COLOR 1,6,13:SCREEN2,3 

140 VDP(l)-VDP(l)-64 

150 GOSUB 920 

160 GOSUB 200 

170 GOSUB 1090 

180 GOTO 1200 

190 'SPRITES DATA 

200 'HAR 

210 DATA 0,3,2,0,0,0,0,0 

220 DATA 0,0,0,0,0,0,0,0 

230 DATA 240,248,12,6,7,7,7,6 

240 DATA 14,14,4,0,0,0,0,0 

250 'ANSIGT MUND OP 

260 DATA 0,0,1,1,3,7,3,0 

270 DATA 1,0,0,0,0,0,0,0 

280 DATA 0,0,240,120,248,184,120,248 

290 DATA 240,240,48,0,0,0,0,0 

300 'ANSIGT MUND I 

310 DATA 0,0,1,1,3,7,3,1 

320 DATA 1,0,0,0,0,0,0,0 

330 DATA 0,0,240,120,248,248,248,248 

340 DATA 240,240,48,0,0,0,0,0 

350 'SKJORTE 

360 DATA 0,0,0,0,0,1,1,1 


370 DATA 1,1,1,0,0,0,0,0 
380 DATA 0,0,0,120,252,252,252,252 
390 DATA 252,252,252,252,168,168,248 
,0 

400 'BEN NED 

410 DATA 0,0,1,1,3,3,3,3 . 

420 DATA 3,3,3,3.1,1,7,30 
430 DATA 127,255,193,255,254,192,128 
, 128 

440 DATA 128,128,128,128,0,0,128,128 
450 'ARM NED 

460 DATA 0,0,0,0,3,3,0,0 

470 DATA 0,0,0,0,0,0,0,0 

480 DATA 6,14,30,60,248,240,0,0 

490 DATA 0,0,0,0,0,0,0,0 

500 'ARM OP 

510 DATA 3,3,1,0,0,0,0,0 

•520 DATA 0,0,0,0,0,0,0,0 - 

530 DATA 0,128,192,255,127,0,0,0 

540 DATA 0,0,0,0,0,0,0,0 

550 'HÅND 

560 DATA 14,19,1,0,0,0,0,0 
570 DATA 0,0,0,0,0,0,0,0 
580 DATA 0,0,0,0,0,0,0,0 
590 DATA 0,0,0,0,0,0,0,0 
600 'BEN OP 

610 DATA 0,0,1,3,3,3,3,3 
620 DATA 3,3,3,1,1,23,14,0 
630 DATA 127,255,193,255,254,192,128 
, 128 

640 DATA 128,128,128,0,0,128,128,0 
650 'INDLÆSE SPRITESn 
660 F0RS=1T09 
670 A$-"" 

680 F0RI-1T032 

690 READ A:A$=A$+CHR$(A) 

700 NEXTI 

710 SPRITES (S) **A$ 

720 NEXTS 
730 RETURN 
740 'BEVÆGE SPRITES 
750 F0RA-1T03 

760 PUT SPRITE 6,(150, 86),15,4 
770 PUT SPRITE 4,(150.70),4,1 
780 PUT SPRITE 3,(146,110),12,5 
790 PUT SPRITE 5,(150,70),10,3 
800 PUT SPRITE 1,(144, 90). 4,7 
810 PUT SPRITE 9,(140, 99), 4,6 
820 PUT SPRITE 7,(141, 85),10,8 
830 FORW~1T060:NEXTW 
840 PUT SPRITE 5,(150,70),10,2 
850 PUT SPRITE 1,(144, 97), 4,6 
860 PUT SPRITE 7,(142,103),10,8 
870 PUT SPRITE 3,(146,110),12,9 
880 FORW"1T060:NEXTW 
890 NEXTA 
900 GOTO 740 
910 'GRAFIK 
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920 LINE( 0,180)-(240,180),1:LINE( 0 
.180)-(20, 90),1:LINE(20,90)-(250,90 
) , 1:LINE(250,90)-(240,180) ,1:PAINT(2 
0,170),1:LINE(60,90)—(200,50),1,BF 
930 LINE(20,90)-(20,20),1:LINE(20,20 
)-(250,20) ,1:LINE(250,20)-(250,90) ,1 
940 LINE(167,119)-(181,125),15,BF:LI 
NE (175,125)-(175,141) ,15:LINE(175,13 
1)-1169,141) ,15:LINE(175,131)-(181,1 
41),15:LINE(141,141)-(123,79),15,B 
950 LINE(153,109)-(141,115),15,B:LIN 
E( 1:26,81) -(138,137) , 15 ,B : PAINT( 136,1 
38)„15:PAINT(146,110),15:LINE(104,12 
6)-U04,66),10:LINE(134,66)-(82,62), 
10:ILINE(104,126)-(112,138) ,10 
960 LINE(104,126)-(104,138),10:LINE( 
104,126)-(96,138)»10:CIRCLE(104,64), 
4,13,,,1:PAINT(104,64) ,13!LINE(80,60 
)-(88,64) ,13,BF:LINE(130,58)-(142,66 
) , 6:: LINE (142,66) — (142,60) ,6 
970 LINE(142,60)-(131,54),6:LINE(131 
,54))-(131,57) , 6 : PAINT (137,59) ,6:LINE 
(135,61)-(131,71),10:LINE(131,57)-(1 
25,55) ,15:LINE(125,55)-(121,57),15:L 
INEfil21,57)-(U9,61) ,15 
980 LINE(119,61)—(117,61),15:LINE(11 
7,61)-(109.63) ,15:LINE(109,63)-(103, 
69) „15:LINE(103,69)-(101,79) ,15:LINE 
(101,79)-(101,93),15:LINE(101,93)-(1 
03,105),15:LINE(103,105)-(101,119),1 

990 LINE(101,119)-(101,129),15:LINE( 
101,129)-(91,137),15:LINE(91,137)-(8 
3,135),15:LINE(83,135)-(73,137),15:L 
INE (73,137) - (63,133) , 15 : LINE (63,133) 
i -(57,131) ,15:LINE(57,139)-(31,101) ,1 
| 3, BF 

| 1000 LINE(35,115)-(53,135) ,1,B:CIRCL 
i E(44,124) ,5,1,,,1:PAINT(44,124) ,1:CI 
i RCLE(36,107) ,2,1,,,1:PAINT(36,107),1 
:CIRCLE(44,107),2,1,,,1:PAINT(44,107 
) ,1:LINE(52,105)-(52,109) ,1,B 
1010 OPEN "GRP:"AS#1 
1020 PRESET(60,30),6 
1030 COLOR 15 

1040 PRINT#1,"OG JOHNNY B. MUSIK" 

1050 PRESET(20, 5),6 
1060 COLOR 1 

1070 PRINT#1,"MSX-BRUGERK 
L U B ! " 

1080 RETURN 

-090 VDP(l)-VDP(l)+64 

1100 'MAND NED 

-110 FORB—30 TO 70 

-120 PUT SPRITE 6,(150,B+16),15.4 

.130 PUT SPRITE 4,(149,B),4,1 

1140 PUT SPRITE 3,(146.B+40),12,5 


1150 PUT SPRITE 5,(150,B),10 3 
1160 PUT SPRITE 1,(144,B+20), 4 7 
1170 PUT SPRITE 7,(141.B+15),10,8 
1180 NEXTB:RETURN 
1190 'MAKRO MUSIKSTART 
1200 CLEAR500 

1210 _INIT:_TRANS(-12):Wl-50:W2-50:W 
3-50 

1220 _ONEVENT(1)GOSUB1660 
1230 _EVENT(1)ON 

1240 RESTORE1400:READT,VI,V2,V3: TEM 
PO (T) 

1250 _TRACK(6):F-l:T-l:RH-0:'Rytme ( 
O-Nej, 1-ja) 

1260 _USER 

1270 _SELP(4):_MCKS(47,3,18,0,200):' 
Volume-200 

1280 _INST(1):_INST(2):_INST(3) 

1290 _MODI(1,V1) :_MODI(2,V2) : MODI(3 
,V3) 

1300 READA$,B$,C$ : IFA$=»"end"THEN RST 
OP:END 

1310 IFVAL(A$)< >0THENW1-VAL(A$) :W2-V 
AL(B$):W3-VAL(C$):GOT01300 
1320 A$-"v"+MID$(STR$(Wl),2)+A$ 

1330 B$-"v"+MID$(STR$(W2),2)+B$ 

1340 C$-"v"+MID$(STR$(W3),2)+C$ 

1350 _ERASE(T):_ERASE(T+1):__ERASE(T+ 
2):_PHRASE(T,A$):_PHRASE(T+l,B$): PH 
RASE(T+2,C$) 

1360 IFF-1THEN_STANDBY:_PLAY(1,1): P 
LAY(2,2):_PLAY(3,3):IFRH-1THEN_RHYTH 
M(1000) :_START:F-0:T=4:GOT01300:ELSE 
_START:F-0:T-4:GOTO1300 
1370 _PLAY(1,T):_PLAY(2,T+1): PLAY(3 
, T+2) 

1380 IFT-1THENT-4 ELSE T-l 
1390 GOT0740 

1400 DATA 200 , 7 , 7 , 7 
1410 'DATA A LITTLE BIT OF LUCK 
1420 DATA T150L404L4GAB05C04EFF+GCDD 
+ER4L2E.L403GAB,L402R4R2R1R1R2L2DL4G 
R4R2,L403R4R2R1R1R2L2DL4GR4R2 
1430 DATA L404L2CCL4DC03AB04L2CC.L40 
3G04CDL2EE,L402L4CR4CR4FR4GR4CR4GR4C 
R4GR4CR4CR4.L403R4L4CR4CR4CR4GR4CR4C 
R4CR4CR4CR4C 

1440 DATA L204L4FECDL1EL4ECDEL2FFL4G 
AFG,L402L4FR4GR4CR4GR4CR4GR4FR4FR4AR 
4AR4,L403L4R4FR4GR4CR4CR4CR4CR4FR4FR 
4ER4E 

1450 DATA L4L404L2AAL4BR4R4L8AB05C04 
B05L4CR404BAR405D.L8C04BA+BR4A132rrr 
rrrrr18,L4L402L4FR4FR4DR4R2FR4CR4FR4 
L2DL4GR4GR413214,L4L403L4R4FR4FR1R4L 
4FR4FR4FR2R4GR4G13214 
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1460 DATA L804L4GR405E.L8DL4C04AGAER 
4DR4L1CL4CR405E.L8D,L402L4CR4L2EL4FR 
4R2L4GR4GR4CR4GR4CR4R2,L403R1R1R1R4L 
4CR4GCR4R2 

1470 DATA L8L805EDL4D04GGL8GGL4G05D. 
L8C+DCL4C04GGL8GGL4G05E.L8D+,L402L4B 
R4GR4BR4GR4CR4GR4CR4GR4,L403L4R4BR4G 
R4BR4GR4CR4GR4CR4G 

1480 DATA L805L8EDL4ER4EEECDL1C,L402 
L4BR4GR4BR4GR4CR4GR4,L403R4L4GR4GR4G 
R4GR4CR4C 

1490 DATA L103R4L4GAB,L402L4CR4R2,L4 
03L4CR4R2 

1500 DATA L404L2CCL4DC03AB04L2CC.L40 
3G04CDL2EE,L402L4CR4CR4FR4GR4CR4GR4C 
R4GR4CR4CR4,L403R4L4CR4CR4CR4GR4CR4C 
R4CR4CR4CR4C 

1510 DATA L204L4FECDL1EL4ECDEL2FFL4G 
AFG,L402L4FR4GR4CR4GR4CR4GR4FR4FR4AR 
4AR4,L403L4R4FR4GR4CR4CR4CR4CR4FR4FR 
4ER4E 

1520 DATA L4L404L2AAL4BR4R4L8AB05C04 
B05L4CR404BAR405D.L8C04BA+BR4A132rrr 
rrrrr18,L4L402L4FR4FR4DR4R2FR4CR4FR4 
L2DL4GR4GR413214,L4L403L4R4FR4FR1R4L 
4FR4FR4FR2R4GR4G13214 


1530 DATA L804L4GR405E.L8DL4C04AGAER 
4DR4L1CL4CR405E.L8D,L402L4CR4L2EL4FR 
4R2L4GR4GR4CR4GR4CR4R2,L403R1R1R1R4L 
4CR4GCR4R2 

1540 DATA L8L805EDL4D04GGL8GGL4G05D. 
L8C+DCL4C04GGL8GGL4G05E.L8D+,L402L4B 
R4GR4BR4GR4CR4GR4CR4GR4,L403L4R4BR4G 
R4BR4GR4CR4GR4CR4G 


1550 DATA L805L8EDL4ER4EEECDL1C,L402 
L4BR4GR4BR4GR4CR4GR4,L403R4L4GR4GR4G 
R4GR4CR4C 

1560 DATA L1L105R4L4CCCL2C04A05C.L40 
4BL2AGL4GGFEL8DDL4DR4D13214,L4L402L4 
CR4R2L4FR4CR4FR4FR4CR4GR4CR4CR4GR4GR 
413214,L4L403R4L4FR4FR4FR4FR4CR4CR4C 
R4CR4GR4G13 2rrrrrrrrr n*nrrrrrrrrrrrr 
rrrrrrrr14 


1570 DATA L404L4ADEF+L1G,L402L4DR4DR 

4GGAB-,L403R4L4DR4DGR4R2 

1580 DATA L103R4L4GAB,L402L4CR4R2,L4 

03L4CR4R2 


1590 DATA L404L2CCL4DC03AB04L2CC.L40 
3G04CDL2EE,L402L4CR4CR4FR4GR4CR4GR4C 
R4GR4CR4CR4,L403R4L4CR4CR4CR4GR4CR4C 
R4CR4CR4CR4C 

1600 DATA L204L4FECDL1EL4ECDEL2FFL4G 
AFG,L402L4FR4GR4CR4GR4CR4GR4FR4FR4AR 
4AR4,L403L4R4FR4GR4CR4CR4CR4CR4FR4FR 
4ER4E 

1610 DATA L4L404L2AAL4BR4R4L8AB05C04 
B05L4CR404BAR405D.L8C04BA+BR4A132rrr 


rrrrr18,L4L402L4FR4FR4DR4R2FR4CR4FR4 

L2DL4GR4GR413214,L4L403L4R4FR4FR1R4L 

4FR4FR4FR2R4GR4G13214 

1620 DATA L804L4GR405E,L8DL4C04AGAER 

4DR4L1CL4CR405E.L8D,L402L4CR4L2EL4FR 

4R2L4GR4GR4CR4GR4CR4R2,L403R1R1R1R4L 

4CR4GCR4R2 

1630 DATA L8L805EDL4D04GGL8GGL4G05D. 
L8C+DCL4C04GGL8GGL4G,L402L4BR4GR4BR4 
GR4CR4GR4CR4,L403L4R4BR4GR4BR4GR4CR4 
GR4C 


1640 DATA L4L4L405L4C.L8DL4ECECL2DEL 
1CL406C132rrrrrrrrrrrrrrrrrrrrrrrr14 
132rrrrrrrrrrrrrrrr14,L4L4L402L4GR4C 
R4CR4GR4GR4CR4GR4CR4R2132rrrrrrrrrrr 
rrrrr1413214,L4L4L403R4L4CR4CR4CR4CR 
4GR4GR4CR4CCR4R21321413214 
1650 DATA end,, 

1660 'TRAP ROUTINE A LITTLE BIT OF L 
UCK 

1670 _PLAY(1,T):_PLAY(2,T+l): PLAY(3 
, T+2) 

1680 READA$,B$,C$:IFA$-"end"THEN1780 
1690 IFVAL(A$)<>0THENW1-VAL(A$):W2-V 
AL(B$):W3-VAL(C$):GOTO1680 
1700 A$-"v"+MID$(STR$(Wl),2)+A$ 

1710 B$="v"+MID$(STR$(W2),2)+B$ 

1720 C$-"v''+MID$(STR$(W3),2)+C$ 

1730 _ERASE(T):_ERASE(T+1):_ERASE(T+ 


1740 _PHRASE(T,A$): PHRASE(T+l,B$): 
PHRASE(T+2,C$) 

1750 IFF-1THEN_STANDBY 

1760 IFT-1THENT-4 ELSE T-l 

1770 RETURN 

1780 FORW-1T01000:NEXT 

1790 'MUSIK START ROCK AROUND THE CL 

OCK 

1800 CLEAR500 

1810 _INIT : _TRANS(-12).:W1-50:W2-50:W 
3-50 


1820 _ONEVENT(1)GOSUB2410 
1830 _EVENT(1)ON 

1840 RESTORE2000:READT,VI,V2 , V3: TEM 
PO (T) 

1850 _TRACK(6):F-1:T-1;RH-1:'Rytme ( 
0-Nej , 1-ja) 

1860 _USER 

1870 _SELP(4);_MCKS(47,3,18,0,200): 1 
Volume-200 


1880 _INST(1):_INST(2):_INST(3) 

1890 _MODI(1,VI):_MODI(2,V2):_MODI(3 
,V3) 

1900 READA$,B$,C$:IFA$-"end"THEN RST 
OP:END 


1910 IFVAL(A$)< >0THENW1-VAL(A$) :W2-V 
AL(B$):W3-VAL(C$):GOTO1900 
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1920 A$-"v"+MID$(STR$(Wl), 2)+A$ 

1930 B$-"v"+MID$(STR$(W2), 2)+B$ 

1940 C$-"v"+MID$(STR$(W3),2)+C$ 

1950 _ERASE(T):_ERASE(T+1):_ERASE(T+ 
2):_PHRASE(T,A$):_PHRASE(T+1, B$):_PH 
RASE(T+2,C$) 

1960 IFF-1THEN_STANDBY:_PLAY(1,1):_P 
LAY(2,2):_PLAY(3,3):IFRH-1THEN_RHYTH 
M(1000):_START:F-0:T-4:GOT01900:ELSE 
_START:F-0:T-4:GOTO1900 
1970 _PLAY(1,T):_PLAY(2,T+1):_PLAY(3 
, T+2) 

1980 IFT-1THENT-4 ELSE T-l 
1990 GOT0740 

2000 DATA 200 , 9 , 9 , 9 

2010 'DATA ROCK AROUND THE CLOCK 

2020 DATA L404L4FFFL8FFFFL4FR8L8CL4C 

L4AAAL8AAAAL4AR8L8CL4C05L4CCCL8CCCCL 

4CR8L8CL4C,L403R1R2R8L8FL4FR1R2R8L8F 

L4FR1R2R8L8FL4F,L403R1R2R8L8AL4AR1R2 

R8L8AL4AR1R2R8L8AL4A 

2030 DATA L405L4CR8L8CL4CR8L8CL4CR8L 

8CL4CR8L8C,L403L4CR4CR4CR4CR4,L403L4 

ER4ER4ER4ER4 

2040 DATA L8L804L4FA05C.R804L4FA05C. 
R804L4FA05CDE-L8E-DC04L4A.13214,L4L4 
02L4FR4CR4FR4CR4FR4CR4FR403C132rrrrr 
rrr14,L4L403 R4L4FR4FR4FR4FR4FR4FR40 
3FR4F13214 

2050 DATA L405L4CL8C04B-A-L4F05C.L8C 
04B-A-L4F05C.L8C04B-AL4F05C.L8C04B-L 
8AL4FR8L4B-L8B-AB-05L4CR8R4L804B-A05 
C04L4AL8F,L402L4B-R4FR4B-R4B-R4FR4CR 
4FR4CR4GR4CR4GR4L8CL4CL8F,L403R4B-R4 
B-R4B-R4B-R4FR4FR4FR4FR4GR4GR4CR4R4 
2060 DATA L804L2FFFL4FR4,L802L2FFFL4 
FR4,L403L2FFFL4FR4 

2070 DATA L4L404L4FA05C.R804L4FA05C. 
R804L4FA05CDE-L8E-DC04L4A.13214,L4L4 
02L4FR4CR4FR4CR4FR4CR4FR403C132rrrrr 
rrr14,L4L403 R4L4FR4FR4FR4FR4FR4FR40 
3FR4F13214 

2080 DATA L405L4CL8C04B-A-L4F05C.L8C 
04B-A-L4F05 C.L8C04B-AL4F05C.L8C04B-L 
8AL4FR8L4B-L8B-AB-05L4CR8R4L804B-A05 
C04L4AL8F,L402L4B-R4FR4B-R4B-R4FR4CR 
4FR4CR4GR4CR4GR4L8CL4CL8F,L403R4B-R4 
B-R4B-R4B-R4FR4FR4FR4FR4GR4GR4CR4R4 
2090 DATA L804L2FFFL4FR4,L802L2FFFL4 
FR4,L403L2FFFL4FR4 

2100 DATA L405L8CCDCE-DC04B-05CCDCE- 
DC04A05CCDCE-DC04A,L402L4FR4CR4FR4CR 
4FR4CR4,L403R4FR4FR4FR4F4RFR4F 
2110 DATA L805L8E-DC04A05E-DC04A05FF 
GFA-GFDFFGFA-GFDCCDCE-DC04A05CCDCE-D 
C04A,L4L402FR403CR402B-R4FR4B-R4FR4F 
R4CR4FR4CR4,L4L403R4FR4FR4B-R4B-R4B- 
R4B-R4FR4FR4FR4F 


2120 DATA L8L8L806C05BB-EE-GG-FEE-DD 
-CC+DEL4FF.R4R4L4FL2F132rrrr12,L4L40 
2L4GR4CR4GR4CR4FR4CR4FR4CR413214,L4L 
402L4R4CR4CR4CR4CR4FR4FR4FR4F13214 
2130 DATA L205L8CCDCE-DC04B-05CCDCE- 
DC04A05CCDCE-DC04A,L402L4FR4CR4FR4CR 
4FR4CR4,L403R4FR4FR4FR4F4RFR4F 
2140 DATA L805L8E-DC04A05E-DC04A05FF 
GFA-GFDFFGFA-GFDCCDCE-DC04A05CCDCE-D 
C04A,L4L402FR403CR402B-R4FR4B-R4FR4F 
R4CR4FR4CR4,L4L403R4FR4FR4B-R4B-R4B- 
R4B-R4FR4FR4FR4F 

2150 DATA L8L8L806C05BB-EE-GG-FEE-DD 
-CC+DEL4FF.R4R4L4FL2F132rrrr12,L4L40 
2L4GR4CR4GR4CR4FR4CR4FR4CR413214,L4L 
402L4R4CR4CR4CR4CR4FR4FR4FR4F13214 
2160 DATA L2L204L4FA05C.R804L4FA05C. 
R804L4FA05CDE-L8E-DC04L4A.13214,L4L4 
02L4FR4CR4FR4CR4FR4CR4FR403C132rrrrr 
rrr14,L4L403 R4L4FR4FR4FR4FR4FR4FR40 
3FR4F13214 

2170 DATA L405L4CL8C04B-A-L4F05C.L8C 
04B-A-L4F05C.L8C04B-AL4F05C.L8C04B-L 
8AL4FR8L4B-L8B-AB-05L4CR8R4L804B-A05 
C04L4AL8F,L402L4B-R4FR4B-R4B-R4FR4CR 
4FR4CR4GR4CR4GR4L8CL4CL8F,L403R4B-R4 
B-R4B-R4B-R4FR4FR4FR4FR4GR4GR4CR4R4 
2180 DATA LS04L2FFFL4FR4,L802L2FFFL4 
FR4,L403L2FFFL4FR4 

2190 DATA L4L404L4FA05C.R804L4FA05C. 
R804L4FA05 CDE-L8E-DC04L4A.13214,L4L4 
02L4FR4CR4FR4CR4FR4CR4FR403C132rrrrr 
rrr14,L4L403 R4L4FR4FR4FR4FR4FR4FR40 
3FR4F13214 

2200 DATA L405L4CL8C04B-A-L4F05C.L8C 
04B-A-L4F05C.LSC04B-AL4F05C.L8C04B-L 
8AL4FR8L4B-L8B-AB-05L4CR8R4L804B-A05 
C04L4AL8F,L402L4B-R4FR4B-R4B-R4FR4CR 
4FR4CR4GR4CR4GR4L8CL4CL8F,L403R4B-R4 
B-R4B-R4B-R4FR4FR4FR4FR4GR4GR4CR4R4 
2210 DATA L804L2FFFL4FR4,L802L2FFFL4 
FR4,L403L2FFFL4FR4 

2220 DATA L405L8CCDCE-DC04B-05CCDCE- 
DC04A05CCDCE-DC04A,L402L4FR4CR4FR4CR 
4FR4CR4,L403R4FR4FR4FR4F4RFR4F 
2230 DATA L805L8E-DC04A05E-DC04A05FF 
GFA-GFDFFGFA-GFDCCDCE-DC04A05CCDCE-D 
C04A,L4L402FR403CR402B-R4FR4B-R4FR4F 
R4CR4FR4CR4,L4L403R4FR4FR4B-R4B-R4B- 
R4B-R4FR4FR4FR4F 

2240 DATA L8L8L806C05BB-EE-GG-FEE-DD 
-CC+DEL4FF.R4R4L4FL2F132rrrr12,L4L40 
2L4GR4CR4GR4CR4FR4CR4FR4CR413214,L4L 
402L4R4CR4CR4CR4CR4FR4FR4FR4F13214 
2250 DATA L205L8CCDCE-DC04B-05CCDCE- 
DC04A05CCDCE-DC04A,L402L4FR4CR4FR4CR 
4FR4CR4,L403R4FR4FR4FR4F4RFR4F 
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2260 DATA L805L8E-DC04A05E-DC04A05FF 
GFA-GFDFFGFA-GFDCCDCE-DC04A05CCDCE-D 
C04A,L4L402FR403CR402B-R4FR4B-R4FR4F 
R4CR4FR4CR4,L4L403R4FR4FR4B-R4B-R4B- 
R4B-R4FR4FR4FR4F 

2270 DATA L8L8L806C05BB-EE-GG-FEE-DD 
-CC+DEL4FF.R4R4L4FL2F132rrrr12,L4L40 
2L4GR4CR4GR4CR4FR4CR4FR4CR413214,L4L 
402L4R4CR4CR4CR4CR4FR4FR4FR4F13214 
2280 DATA L2L204L4FA05C.R804L4FA05C. 
R804L4FA05CDE-L8E-DC04L4A.13214,L4L4 
02L4FR4CR4FR4CR4FR4CR4FR403C132rrrrr 
rrr14,L4L403 R4L4FR4FR4FR4FR4FR4FR40 
3FR4F13214 

2290 DATA L405L4CL8C04B-A-L4F05C.L8C 
04B-A-L4F05C.L8C04B-AL4F05C.L8C04B-L 
8AL4FR8L4B-L8B-AB-05L4CR8R4L804B-A05 
C04L4AL8F,L402L4B-R4FR4B-R4B-R4FR4CR 
4FR4CR4GR4CR4GR4L8CL4CL8F,L403R4B-R4 
B-R4B-R4B-R4FR4FR4FR4FR4GR4GR4CR4R4 
2300 DATA L804L2FFFL4FR4,L802L2FFFL4 
FR4,L403L2FFFL4FR4 , 

2310 DATA L4L404L4FA05C.R804L4FA05C. 
R804L4FA05 CDE-L8E-DC04L4A.13214,L4L4 
02L4FR4CR4FR4CR4FR4CR4FR403C132rrrrr 
rrr14,L4L403 R4L4FR4FR4FR4FR4FR4FR40 
3FR4F13214 

2320 DATA L405L4CL8C04B-A-L4F05C.L8C 
04B-A-L4F05 C.L8C04B-AL4F05C.L8C04B-L 
8AL4FR8L4B-L8B-AB-05L4CR8R4L804B-A05 
C04L4AL8F,L402L4B-R4FR4B-R4B-R4FR4CR 
4FR4CR4GR4CR4GR4L8CL4CL8F,L403R4B-R4 
B-R4B-R4B-R4FR4FR4FR4FR4GR4GR4CR4R4 
2330 DATA L804L2FFFL4FR4,L802L2FFFL4 
FR4,L403L2FFFL4FR4 
2340 DATA L405L8CCDCE-DC04B-05CCDCE- 
DC04A05CCDCE-DC04A,L402L4FR4CR4FR4CR 
4FR4CR4,L403R4FR4FR4FR4F4RFR4F 
2350 DATA L805L8E-DC04A05E-DC04A05FF 
GFA-GFDFFGFA-GFDCCDCE-DC04A05CCDCE-D 
C04A,L4L402FR403CR402B-R4FR4B-R4FR4F 
R4CR4FR4CR4,L4L403R4FR4FR4B-R4B-R4B- 
R4B-R4FR4FR4FR4F 

2360 DATA L8L8L806C05BB-EE-GG-FEE-DD 
-CC+DEL4FF.R4R4L4FL2F132rrrr12,L4L40 
2L4GR4CR4GR4CR4FR4CR4FR4CR413214.L4L 
402L4R4CR4CR4CR4CR4FR4FR4FR4F13214 
2370 DATA L205L8CCDCE-DC04B-05CCDCE- 
DC04A05CCDCE-DC04A,L402L4FR4CR4FR4CR 
4FR4CR4,L403R4FR4FR4FR4F4RFR4F 
2380 DATA L805L8E-DC04A05E-DC04A05FF 
GFA-GFDFFGFA-GFDCCDCE-DC04A05CCDCE-D 
C04A,L4L402FR403CR402B-R4FR4B-R4FR4F 
R4CR4FR4CR4,L4L403R4FR4FR4B-R4B-R4B- 
R4B-R4FR4FR4FR4F 

2390 DATA L8L8L806C05BB-EE-GG-FEE-DD 
-CC+DEL4FF.R4R4L4FL2F132rrrr12,L4L40 
2L4GR4CR4GR40R4FR4CR4FR4CR413214,L4L 


402L4R4CR4CR4CR4CR4FR4FR4FR4F13214 
2400 DATA end,, 

2410 'TRAP ROUTINE ROCK AROUND THE C 
LOCK 

2420 _PLAY(1,T):_PLAY(2,T+1) : PLAY(3 
, T+2) 

2430 READA$,B$,C$:IFA$-"end"THEN2530 
2440 IFVAL(A$)< >0THENW1-VAL(A$) :W2-V 
AL(B$):W3-VAL(C$):GOTO2430 
2450 A$-"v"+MID$(STR$(Wl),2)+A$ 

2460 B$-"v"+MID$(STR$(W2),2)+B$ 

2470 C$-"v"+MID$(STR$(W3),2)+C$ 

2480 _ERASE(T):_ERASE(T+1): ERASE(T+ 
2 ) 

2490 _PHRASE(T,A$):_PHRASE(T+l,B$): 
PHRASE(T+2,C$) 

2500 IFF-1THEN_STANDBY 
2510 IFT-1THENT-4 ELSE T-l 
2520 RETURN 

2530 FORW-lTO1000:NEXT:_RSTOP:_END 
2540 SCREEN0:COLOR 15,4,4:LOCATE5,11 
:PRINT"SAT OM TIL MAKRO AF JOHNNY B. 
2550 FORW-1T05000:NEXT:CLS 


Ja det var så det lille makro prg 
jeg har som du ser brugt 2 trap og 
startrutiner, man kunne godt nøjes 
med en af hver men da jeg har valgt 
at lade det ene musikstykke være 
uden rytme og det andet med så er 
det nødvendig med 2 for at få pæne 
afslutninger af musikken 

Hvis du vil have andre instrumenter 
eller hastighed skal du rette data 
i linie 1400 og linie 2000 

Læg mærke til linie 740-900 det er 
som du ser en ende-løs løkke. 

Det kan lade sig gøre ved at vi jo 
bruger _on event gosub kommandoen 
som bryder løkken hvergang nye data 
skal indlæses. Snildt ikkesandt 

Jeg håber i hermed har fået lidt 
inspiration til selv at lave Makro 
programmer med musik og bevægelse 


HEJ 




MSX 


- 20 - 


MSX BIB -3f 


BIB 

Hvis du ikke har fået taget dine 
nervepiller her til morgen, så 
skynd dig hellere at få det gjort, 
for nu vil jeg fortælle noget som 
kan slå benene væk under selv den 
største klippe: Der er kommet ikke 
mindre end 10 nye programmer til 
MSX-BIB. Okay, nu er det måske at 
tage munden lidt for fuld at sige 
at de er nye alle sammen, for de 
fleste har jeg faktisk haft liggen¬ 
de i lang tid (pinligt!), men 4 af 
dem kommer fra jer kære medlemmer. 

For at starte med dem, har jeg 
fra Anders Juncker i Odense modtag¬ 
et tre spil: "Tank”, et 2-mands 
spil hvor det gælder om at skyde 
hinanden; "Wall”, et bordtennis 
spil med bande ligeledes for 2 
personer & "Seafight", et spil hvor 
man skal skyde jetjagere der angri¬ 
ber ens skib. Fra endnu en odense- 
aner, Nikolaj Halberg, har jeg fået 
et program kaldet "Fødag”, der kan 
bruges som en lille fødselsdagshi1- 
sen, med flaghejsning og fødsels¬ 
dagssang. Et par programmer af 
Richard har jeg også fundet frem: 
"Kalender”, der kan regne ugedage 
ud og hans nye "Colortrim”, til 
SVI-738 X'Press (kun til denne 
computer!) som kan definere nye 
farver mellem 512 mulige. Resten af 
programmerne er udelukkende grafik 
eller lyd shows: "Bronski", spiller 
Bronski Beat's ’Smalltown boy' i 
det uendelige; "Musik”, indeholder 
en lang række melodier, bl.a. ’Ca- 
vatina’, der lyder stjerne godt; 
"R2D2”, der tegner det lille kære 
metalvæsen og endelig "Lamborghi¬ 
ni”, der tegner et suverænt flot 
billede af en Lamborghini Countach 
LP 500 S. 

Ønsker du at komme i besiddelse 
af nogle af de ovenfor eller dem i 
nedenstående liste nævnte program¬ 
mer fra MSX-BIB er fremgangsmåden 
som al tid: 

Du sætter dig ned og finder ud 
af hvilke programmer du vil købe. 


Derefter slipper du joystikket for 
en stund, går hen på posthuset, 
fatter et giroindbetalingskort, og 
skriver programnavnene på bagsiden. 

Priser: 

15 min. bånd - 25 dkr. stk. 

5.25” disk - 25 dkr. stk. 

3.5” disk - 35 dkr. stk. 
programmer - 10 dkr. stk. 

Porto og forsendelse er inklude¬ 
ret i disse priser. 

Et bånd kan rumme 8 programmer. 
En disk kan rumme hele biblioteket. 

Eks: 8 programmer på 3.5" disk 

koster 8 * 10 + 35 = 115 dkr. 

Programmerne bestilles hos: 

Kim Andersen 
Fundervej 32 
2610 Rødovre 
gironr. 7 50 87 00 

Jeres egne programmer sendes til 
samme adresse. (der venter stadig 
en belønning i form af bånd eller 
disketter efter eget ønske). 

Kim 


Øvrigt indhold i MSX-BIB: 

- "Lineshow", meget flot demonstra¬ 
tionsprogram med bevægende linier. 

- "Kegle”, vælt den enlige bevægen¬ 
de kegle med din bowlingkugle. 

- "Figflyt”, kan flytte og dreje 
figurer du tegner ved at angive 
hjørnekoordinater. Regner nye ud. 

- "Sprite”, tegn din sprite og du 
får hvad der skal stå i data¬ 
linierne. Meget enkelt. 

- "Regression”, smart program der 
ud fra indtastede data (koordina¬ 
ter) tegner en tilpasset kurve. 

- "Tegne”, lille tegneprogram med 
de gængse kommandoer. Flot grafik. 

- "Snake Valley”, æd modstanderens 
hale inden han æder din. For 1 
eller 2 spillere. 

- "Biorytmer”, afgør hvordan din 
fysiske, psykiske & intellektuelle 
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ti Istand er d.d. 

- "Chopper", hel i koptorspi 1 med 12 
baner, incl. designerprogram til at 
lave mange flere. 

- "Ormrun” , Charlottenlund Travbane 
med orme, flot grafik & lyd. 

"Demo ”, oplev hvilke grafiske 
muligheder din MSX indeholder. 

- ”Amorti ”, regner rente, afdrag og 
restgæld på din afbetaling ud. 

'^P 3 t indtast dine tips (også 
sys.) og prog. viser antal rigtige. 

- ”The Maze”, lav en labyrint og få 
en^anden til at slippe igennem. 

- Life , tegn et mønster af cel¬ 
ler, og du ser dem udvikle sig. 

- "Sound Maker”, lav den rigtige 
lyd til dit sdpil på denne flotte 
mikserpult. 

- ”Hal v Tolv”, lige som i Monte 
Carlo, på med pokerfjæset„ 

"Danmark”, lær de danske byers 
beliggenhed, flot grafik. 

"Oil”, bliv olie-sheik på no 
time, sjovt to-raands-spi1. 

- ”Puzz 1e”, sjovt puslespil på 16 
brikker med bevæglige billeder. 

- Skyd Nu”, skeetskydning som du 
kender det fra 01, hurtig grafik. 

- "Pengo”, det iskolde gys, klas¬ 
sikeren fra spillehallerne. 

- "Søjle”, behandler tal og stiller 
dem op som kurver el. søjler. 

- Eliza", Psykologen , hjælper dig 
med kærestesorgerne, på engelsk. 

7 "Graf”, tegner en graf for den 
indtastede funkt.ion, brugervenligt. 

- "Kartotek”, hold styr på dine 
oassette bånd og programmer. 

- ”Moon Mission", superlækkert gra¬ 
fik lander program, 5 baner. 

- "Frogrun", få frøen sikkert over 
vejen og floden. 

- "Dump”, screendump prog. til din 
Epsonkompatible printer. 4 forstør¬ 
relser, 4 gråtoner. 

- "Dbase ”, hurtig dbase hvor du kan 
sætte alt i system, indbygget ud— 
printningsfaci1itet. 

- "Screen Store”, kan gemme to 
skærmbi lieder og lynhurtig få dem 
frem igen. Kun til 64 k maskiner. 

- Ram Disc”, arbejd med to pro¬ 
grammer på samme tid. Kun til 64 k 
maskiner. 


SKÆRM GRAFIK 

10 'SKÆRM - GRAFIK 

20 'FOR MSX—2 bearbejdet af Johnny B 
30 1 

40 SCREEN 0:WIDTH 80:KEY OFF 
50 LOCATE 27,5:PRINT"S K Æ R M - G R 
A F I K" 

60 LOCATE 27,6:PRINT"- 


70 LOCATE 24,8:PRINT"MSX Il-Version 
SYNTAKSEN 1988" 

80 LOCATE 5,22:INPUT"SCREEN 5 / SCRE 
EN 8 ";S 

90 IF S-5 THEN F-8:FC-1:GOTO 160 
100 IF S-8 THEN LOCATE 5,22:INPUT "1 
■ Sort-Hvid 2 - Farver ";F:G0T0 
120 

110 GOTO 80 

120 IF F-l THEN BEEP:F-8:FC-1:GOTO 1 
60 

130 IF F-2 THEN BEEP:FC-F:GOTO 160 
140 GOTO 100 
150 ' 


160 SCREEN S:COLOR 15,4,1:CLS 
170 PI-3.1415926# 

180 0PEN"GRP:"FOR OUTPUT AS#1 
190 FOR X-0 TO 256 STEP 5 
200 LINE(X*5-512,192)-(X,74) 

210 NEXT 

220 Y-72:1-2 

230 IF Y>256 THEN 270 

240 LINE(0,Y+I)-(256,Y+I) 

250 Y-Y+5:1-1.3*1 
260 GOTO 230 

270 Kl-32:K2-12:GOSUB 290 
280 Kl—36 :K2-15 : GOSUB 290:GOTO 390 
290 FOR W-0 TO 2*PI STEP PI/24 
300 X-32+28*W:Y-60+Kl*SIN(W) 

310 S-K2*SIN(W/2) 

.320 X1-X+8+S:X2-X+8-S 
330 Yl-Y+S:Y2-Y-S 
340 LINE(XI,Yl)-(X2„Y2),1,B 
350 IF FC-1 THEN LINE(Xl-1,Yl-1)-(X2 
+1,Y2+1),F,BF 

360 IF FC-2 THEN LINE(Xl-1,Yl-1)-(X2 

+1,Y2+1),RND(1)*256,BF 

370 NEXT 

380 RETURN 

390 FOR 1-0 TO 10 

400 COLOR 1:PRESET(36,14 8+1):PRINT # 
1 ' : NEXT I 

410 S : PRESET (4U, “ 3 ) : PRINT #1, 

"SKÆRM - GRAFIK MSX II" 

420 A$-INKEY$:IFA$-"" THEN 420 
430 CLOSE #1:COLOR 1,14,1:END 






*”**"*- * GANGE MUSIK AF JOHNNY 


4 GANGE MUSIK 
AF JOHNNY 

1 'Hermed et lille musikstykke 

2 'overkommeligt at taste ind 

3 'af Johnny B 

4 ' 

10 PLAY"sl3m450t255" 

20 READA$:IFA$-"end"THENPLAY"rl.":GO 
T020 ELSE IFA$“"END"THENEND 
30 PLAYA$:GOTO20 

99 'Cheek to Cheek 

100 DATA o314ag2.r2efag2.r2efagbao4c 
o3bo4dcel.dco3bo4dco3agbafelr4r4fga8 
affddco2bo3c2r8b2a2g2 

110 DATA o314ag2.r2efag2.r2efagbao4c 
o3bo4dcel.dco3bo4dco3agbafelr4r4fga8 
affddco2bo3c2r8r2r2r8 
120 DATA o314gf+8fgbo4d8cc.r8o3gf+8f 
gb8o4dc2r8r8o3gf+8fgbo4dcc8o3g2g+8aa 
fo2b8o3c2r8r8gf+8fgbo4d8cc.r8o3gf+8f 
gb8o4dc2r8r8o3gf+8fgbo4dcc8o3g2g+8aa 
fO2b8o3c2d8o2b8o3c8f8g8 
130 DATA o414c.c8cl16ccc14e.o3g-8g-g 
2.o4e-2d.o3f8ff2.o4d2c.o3e8ee2,d2 
140 DATA o314ag2.r2efag2.r2efagbao4c 
o3bo4dcel.dco3bo4dco3agbafelr4r4fga8 
af f ddco2bo3c2r8o4cc8g.g2 . 

500 DATA END 

1 'Her er endnu et lille 

2 'Music stykke for the 

3 'beginners af Johnny B 

4 ' 

10 A$-"sl3m450tl20":PLAYA$,A$,A$ 

30 READA$:IFA$-"end"THEN30 ELSE IFA$ 
»"END"THENEND 
40 PLAYA$:GOTO30 
99 '01' Man River 

120 DATA o2gga8o3co2a8gga8o3cd8eed8c 
d8ega8ga8gge8de8gge8de8cl.r4r8o2g8gg 
a8o3co2a8gga8o3cd8ega8ga8o4cco3b8ab8 
gge8de8gge8de8cl.r2 
130 DATA 14o3bga.o4c8o3bga2b8.bl6ga8 
.al6o4co3bga2g8r8ef+2gef+2g8.gl6e8.e 
16f+a8.al6ged2o2gga8o3co2a8gga8o3cd8 
ega8ga8o4ccd8cd8eed8cd8eed8c8dcl.r2 
500 DATA END 


1 'Her er 2 stykker i et 

2 'den første er en gammel 

3 'dansk opfordring. 

4 'I behøver ikke tage til 

5 'Sjælland og kysse KURT 

6 'BVADR BVADR 


7 1 2 3 4 5 6 

8 'Af Johnny B 

10 PLAY"sl3m450t255" 

20 READA$:IFA$-"end"THENPLAY"Rl." :GO 
T020 ELSE IF A$“"END" THEN END 
30 PLAYA$:GOTO20 

99 'Kys hinanden 

100 DATA o414cdco3b2.b-o4co3b-a2.ab- 
agagfgfe2.defgab-o4c2.o3f2o4cd-2.o3e 
2o4d-e2.d2 

110 DATA o314ao4co3b-agagflgaggggabo 
4cdco3b-ag 

120 DATA o312f.o4c.c.o3e.14defar4aa2 
.c+2.def gab-o4cccco3ao4cddddo3bo4dee 

eede 

130 DATA o312f.o4c.c.o3e.14defar4aa2 
.c+2.defgab-o4cdefedo3ao4edo3ao4co3a 
f 1. 

140 DATA end 

199 'Kalinka 

200 DATA tl20o314b8af+8g8af+8g8ag8f+ 
8e18bba.gl6f+ga4f+ga4gf+e4b4 

205 DATA o314b8af +8g8af +8g8ag8f +8e18 
bba.gl6f +ga4f +ga4gf+e2o4e2d2 
210 DATA 18o3bo4dco3bl6al6g4d4bo4dco 
3bl6al6g4d4e4ef+agf+ed4d4d4o4d4o3bo4 
do3abg4d4bo4do3abg4d4e4ef+agf+eo4d4c 
4o3b4. 

600 DATA END 


1 'Denne lille rutine er til 

2 'Musik Computer folket 

3 'indtast den og gem den 

4 'som en Aschi fil og når 

5 'du så har tastet mine små 

6 'musikstykker ind så Merger 

7 1 du blot denne med basic 

8 'Play stykkerne og viola 

9 'de kører under Makro 

10 ' 

11 'Venlig Hilsen 

12 'Johnny B Good 

13 ' 

15 _INIT 
20 _INST(1) 

22 _MODI(1.6) 

25 _TEMPO(60) 

30 READ A$ 

40 IFA$“"end"THEN70 
50 _PHRASE(1,A$) 

60 GOTO 30 
70 _PLAY(1,1) 
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Liste af programt i t ler 
i SVIBIB : 


© S3 Q Q Q B 


SVI BIB er KUN til SVI 318-328 


SVIBIBS’s POSTGIRONR. 

4077385 


Nyttige programmer : 

Database , Editor , Hushold ,Mat te, 
Mc scroll , Rarndis , Rentereg , 
Rulleteks , Screen Rig , Sdump.mc, 
Sorter , Sprite ed , Sprog , 

Tegner , Talkback , Taperut , Tips 
Kalender , Supertegn , Periode 


Bestilling a-f programmer gøres på 
postgiro hvorpå der skrives hvilke 
programmer du ønsker,samt om du vil 
have disk eller bånd. 

Husk også at skrive din egen adr, 
tydeligt helst 

PRISER' 

Bånd ~ - 25kr. 

5.25" Disk - 25kr. 

Pris pr. program - 10kr. 

Pris pr. programpakke - 15kr. 

Udlistning a-f program - 5kr. 

Programpakkerne et- lavet på den 
måde at man loader alie 


derefter kan rn; 
ti 1 bage til i 


ønsker at kø 
oppe og vende 


HUSK når I bestiller programpak 
at skrive hvilken katarogi I 
ønsker det pågældende nr, fra. 

Programmerne bestilles hos: 

Per Under lien 
Rytterhusene 44 
2620 Albertslund 
GIRONR. 4077385 

Programmer der ønskes optaget i 
SVIBIB sker på samme adr. 

Det er jo sådan at vi NU GIVER 
2 bånd eller 
5 5.25" disk 

For- de programmer der optages- 
SVI BIB. 


Aladd in , Bov la , Bjerg , Darts , 
Diktator Franz , Hell-, Skyd .m 


Spil pakker : 

Nr. 1 : Male , Pyramide , Labyrant 
Nr, 2 : Pusle , Attack , Roulette 
Nr. 3 ; Flight , Sur , War 
Nr. 4 : Mons , Hopper , Star 

Nr. 5 : Moon , Myre , Slange 

Nr. 6 ; Robot , Pengo , Snowball 
Nr, 7 ; Danmark , Frogger 
Nr. S : Skyttepr-G , Lemona 

Musik pakker : 

Nr. 1 : Rock musik 9 numre 

Nr, 2 ; Rock musik 9 numre 

Nr, 3 : Musik 9 numre 

Nr, 4 : Lyd Kim , Sound Kim , Orgel 


Andet pakker : 


Nr. 1 : Rio , L 
Syrntri 


s , Ghost. , Børge 
Graf i k 



Kun til disk : 


Budgetpro. , Dbase 1 no.l , Grafen 
Tegnepro. , Te 1efonpro. 
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MOTOR SIMULATI 


ON -*-K-K~X- 


MOTOR 

S I MULAT FOX' 



210 PRESET(70,60):PRINT#1,"Simulatlo 
n" 

220 '*** Motor *** 

230 LINE(80,95)-(140,140),5,BF 
240 LINE(79,98)-(83,140),1,BF 
250 LINE(94,98)-(98,140), 1, BF 
260 LINE(109,98)-(113,140), 1, BF 
270 LINE(124,98)-(128,140), 1, BF 
280 LINE(139,98)-(143,140),1,BF 
290 LINE(79,90)-(143,97) 1 BF 
300 LINE(75,126)-(145,154),1,BF 
310 LINE(65,130)-(75,150),1,BF 
320 LINE(55,135)-(65,145),1,BF 
330 LINE(0,138)-(55,142),1,BF 
340 '*** Stempel *** 

350 LINE(103,117)-(104,135),1,BF 
360 LINE(88,117)-(89,135),1,BF 
370 LINE(118,117)—(119,135),1,BF 
380 LINE(133,117)-(134,135),1,BF 
390 '*** Tændrør *** 

400 LINE(103,84)-(104,90),1,BF 
410 LINE(88,84)-(89,90),1,BF 
420 LINE(118,84)-(119,90),1,BF 
430 LINE(133,84)-(134,90),1,BF 

440 '*** Spritøs *** 

450 A$-CHR$ ( 255) +CHR$ (255) +CHR$ (255) 
+CHR$(255)+CHR$(255)+CHR$(255)+CHR$( 
255)+CHR$(255) 


460 B$-CHR$(24)+CHR$(24)+CHR$(24)+CH 
R$(24)+CHR$(24)+CHR$(24)+CHR$(24) +CH 
R$(24) 

470 SPRITE$(1)-A$+B$ 

480 SPRITE$(2)-A$ 

490 X-l 
500 T-85 
510 U-115 
520 D-STICK(O) 

530 '*** Hoved sløjfe *** 

540 IF D-l THEN X-X+.3 
550 IF D-5 THEN X-X-.3 
560 IF X<.1 THEN X-.1 
570 IF X>16 THEN X-16 
580 FOR Y-100 TO 116 STEPX 
590 IF Y>106 THEN PUTSPRITE 5,(0,0), 
0,2 

600 PUT SPRITE 0,(100,Y),1,1 
610 PUT SPRITE 1,(115,Y),1,1 
620 PUT SPRITE 2,(130,216-Y),1 1 
630 PUT SPRITE 3,(85,216-Y),1,1 
640 NEXT 

650 PUT SPRITE 5,(T,97),6,2 
660 GOSUB820 

670 FOR Y-116 TO 100 STEP-X 
680 IF Y<110 THEN PUTSPRITE 5,(0,0), 
0,2 

690 PUT SPRITE 0,(100,Y),1,1 
700 PUT SPRITE 1,(115,Y),1,1 
710 PUT SPRITE 2,(130,216-Y),1 1 
720 PUT SPRITE 3,(85,216-Y),1 1 
730 NEXT 

740 PUT SPRITE 5,(U,97),6,2 

750 GOSUB820 

760 '*** Tænding *** 

770 IF T-85 THEN T-130:GOTO 790 
780 IF T-130 THEN T-85:GOTO 790 
790 IF U-100 THEN U-115:GOTO 520 
800 IF U-115 THEN U-100:GOTO 520 
810 '*** Motor-Lyd *** 

820 SOUND 0,39:SOUND 1,3:SOUND 4,192 
:SOUND 5,15:SOUND 6,29:SOUND 7,33:SO 
UND 8,1:SOUND 10,2:SOUND 11,48:SOUND 
12,42:SOUND2,223:SOUND3,12:SOUND9 1 
6:SOUND13,3 
830 RETURN 
840 ' 

850 'Hastighed ændres med 
860 'piletaster op/ned 
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SÆLGES 

YAMAHA Synthesizermodul SFG-01 
til alle MSX-computere - 500,00 kr. 

CASIO-FX7000G programmerbar lommeregner 
. med uanede muligheder. 

442 programtrin og 78 memoryce1 ler. 
Binære, oktale og hexadecimale tal. 
Stort grafisk display, der muliggør 
grafisk løsning af ligninger. 

Sandsynlighedsregning. 

Regression og meget andet. 

Selvom den er avanceret, er den 
utrolig brugervenlig. 

Nypris : 1700,00 kr. 

6 mdr. gamme1. 

Pris : 700.00 kr. 


Henvende Ise 


: Jens Møller 
tlf. 09-942275 



X W13MELDELSESBLAMKET 


_______ 

EFTERNAVN: ___ 

ADRESSE: ___ 

TLF«.: ______ 

POST«. 4BY:_ 

ALDER: _ 

MASKXME: • 

DIV. UDSTYR: _ 

INTERESSE C«ADE: 
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HAR DU NOGET 
DU MANGLER ? 

Jeg har fået en kuvert tilsendt 
med diverse ting og sager i. 

Kuverten er ikke til mig, men 
jeg har fået den fordi der var 
utilstrækkelig adresse på, og 
fordi mit navn og adresse 
forekom indeni kuverten. 

Der var ikke nogen afsender 
skrevet på. 

Kuverten er stilet til: 

Mads 

Ki1dehøj en 
8240 Risskov 

Hvem har sendt denne kuvert??? 

Hvis Mads'skal have sin kuvert 
så ring til mig: 

Peter Knudsen, 02-177623 


KUP KUP KUP KUP KUP KU? 


SØJLEGRAF I K 


110 '* SØJLEGRAFIK * 

120 '* SYNTAXEN 1988 * 

130 JOHNNY B GOOD * 

150 ' * * 

160 CA-30 

170 DIM V(CA) : MX=0 : 1-0 

180 SCREEN 0 : COLOR 15,1 • KEY OFF 
190 PRINT "INDGIV VENLIGST VÆDIER" 
200 PRINT "(SLUT TAST 0 ELLER RET)" 
210 IF I>CA THEN 240 
220 INPUTV(I):IFV(I)>MXTHEN MX-V(I) 
230 IF V(I)>0 THEN I-I + l : GOTO 210 
240 SCREEN2:SX-256/I: SY-180/MX:1-0 
250 LINE (255,191)-(0,191) 

260 OPEN "grp:"AS#l 

270 FOR X-0 TO 255 STEP SX 

280 VY - 192—(V(I)*SY> 

290 LINE (X,191)-(X+SX-2,VY),15,BF 
300 IFX-OTHENPRESET(X,VY-9):GOT0320 
310 PRESET (X-9,VY-9) 

320 PRINT #1, V(I) 

330 IF I<CA THEN I - I + 1 • NEXT X 
340 GOTO 340 
350 ' 

360 '******* PROGRAMM-SLUT ******** 

KLIP KUP KLIP KLJP KLIP KLIP 








-s-*--** BRffiDE 


AF SVEN-AKE ***•*■ 


BRÆ DE SPIL 
AF SVEN-ÅKE 

20 ’^P&ERARE l!R4K 4 åi.KX» 

30 ’ Albi risr agatan 47 

40 ’ S-214 67 Malmn 

50 » Dator SVI-328 

60 KEY OFF : COLOR 12,12,12 : SCREE 

M2 : DEFINTI-J 

70 FOR J=0 TO 200 STEP 20 

80 FOR 1=0 TO 260 STEP 20 

90 LINE(I,J)-(256-1,192-J) , 3 

100 FOR K=1 TO 10:NEXT 

110 NEXT 

120 NEXT 

130 FOR 1=0 TO 90 STEP 10 
140 LINE(I,I)-(256-I,192-1) ,3,B 
150 NEXT * * * 


160 FOR J=0 TO 200 STEP 20 

170 FOR 1=0 TO 260 STEP 20 

ISO LINE (I, J-)-(256-1, 192-J) ,12 

190 FOR K=1 TO 10:NEXT 

200 NEXT 

210 NEXT 

220 FOR 1=0 TO 90 STEP 10- 
230 LINE(I.I)-(256-1,192-1),12,B 
240 FOR K=1 TO 50:NEXT 
250 NEXT 

260 ’ GRUND DATA ANTAL DELTAGARE 
270 COLOR15 : CLEAR : SCREEN O,,O : 

WIDTH39 : DIM C(25) : DEFINT D-Z 

2S0 OPEN "qrp:" FOR OUTPUT ASMI 
290 PRINT STRINGS(195,42) : LOCATE 
15,2 : PRINT " BRÆDE 11 
300 LOCATE 1,7 : INPUT "BESKRIVNING 
J/N <N> " 5 DS 

310 IF DS="J" OR DS="j" THEN GOTO 2 

320 DS="" 

330 PRINT 

340 PRINT : INPUT "NAMN DELTAGARE n 

r 1 : "1 AS 

350 PRINT : INPUT "JQYSTICK NR 0,1 
ELLER 2 "; DS : IF DS="" GOTO 260 
360 IF VAL(DS)=0 OR VAL(DS)=1 OR VA 
L(DS)=2 THEN A=VAL(DS) ELSE 270 
370 DS="" 


380 PRINT 
390 PRINT 
r 2: "; BS 
400 PRINT 
ELLER 2 "i 


INPUT "NAMN DELTAGARE n 


400 PRINT : INPUT "JOYSTICK NR 0,1 
ELLER 2 DS : IF DS="" GOTO 260 
410 IF VAL(DS)=0 OR VAL(DS)=1 OR VA 
L(DS)=2 THEN B=VAL(DS) ELSE 260 
420 DS= " 11 

430 IF LEM(AS)>11 OR LEN(BS)>11 GOT 
O 260 

440 1 START BRÆDSPEL 

450 COLOR 15,12,12: SCREEN2,2 

460 1=3 

470 FOR 1=1 TO 1+80 STEP 40 

480 LINE(I,O)-(1+5,59),15 : LINE( 

1+5,59)-(1+10,0),15 : PAINT(1+3,5), 

490 LINE(I+20,0)-(I+25,59),1 : LI 
NEd+25,59) - (1+30,0) , 1 : PAINTd+25 

é00* LINE(I,140)-(1+10,140),1 : LI 
NE<I.140)-(1+5,81),1 : LINE(1+5,81) 
-(I+1O,140),1 : PAINT(I+3,137),i 


140) -(1+30,140) ,15 
: LINE(I+20,140)-(I+25,81),15 : LIN 
E(I+25j81)-d+30,140>,l5 : PAINT (1 + 

T0^470 E ^ T : IF I=123THEN 1=143 : GO 

Ed27jl40)Mi29:80)!i4^ 14 ’ BF :LIN 
540 » INUB8NINGÅR AV TÆRNINGAR OCH 
MARØR 

550 RESTORE 3250 
560 FOR J=1 TO 7 
570 SS=STRINGS(32,O) 

580 FOR 1=1 TO 16 
590 READ ES,F$ 

600 MIDS(SS,1,1)=CHRS(VAL("kH"+ 

ES) ) 

610 MIDS(SS, 1 + 16, 1) =CHRS (VAL ( "8< 

H"+FS)) 

£20 kl 1 S SPRITES (J ).=SS 

630 NEXT J : SPRITES(O)=STRINGS(32 

^40 LINE(103,169)-(120,188),15,BF : 

LINE (137,169) -*( 154, i885,15, 
BF :’BAKGRUND TÆRNINGAR 
650 PSET(126,161):PRINTM1 "B" : PSE 
T(126,169): PRINTMI,"Y" :$SET(126,1 
?£lÅ^INTMl,"T" : P$ET (126,185) f PR 
I NT tt 1- E' 

660 GOSUB 1010: IF 12=11 THEN 660 
670 IF 12>11 THEN Z=1 ELSE Z=2 : 5 Z= 

1 SLUMP AGARE1 SAMT NYA TÆRNINGAR 0CH 
680 FOR I=83T0 139STEP4:’BRICKOR V 
ITA 

690 LINE(1,1) — (15,1 + 1),15, BF :’ 

h,™ t SPE V ARE A START P+ K0N1 
700 NEXT :C(1)=8<B 10001.111 

for 1=0 TO 56 STEP4:’BRICKOR S 

720 LINE(241,I)-(255,I+1),1,BF :’ 

_ SPELA&E B START P-f K6N24 
730 NEXT :C (24) =8cB01001111 
+-+-+~ +_+ ~ + START AV HUV PROGRAM - 

750 GOSUB 2030 : ’KONTROLL AV JAN 

'60 LIN E (°,170)-(100,i?9),12,BF : L 
INE(158,170)-(260,17$),12,BF:’TA BO 
RT TEXT 

770 IF Z=1 THEN Z=2 : E=A : COLOR 1 
5 : PSET(95-(LEN(AS>*8),170).12 : P 
RINTM1,AS ELSE Z=1 : E=é : cåLOR 1 
: PSETU65.170).12 : PRINTMI,BS 
T80 GOSUB 1010 :’NYA TÆRNINGAR 
T90 X=109 : Y=160 : GOSUB 1130 
300 J0=0: IF 11=12 THEN Jl=l : J2=l 
:INTERVALON : ON INTERVAL=40 GOSUB 
2610 ELSE INTERVALOFF :»BLINK RUT 
IN TÆRNINGAR DUBBEL 

v 10 tærning ING AV BRICK0R 0CH BYTE A 

320J- - - - - LOOP START ----- 

830 IF STRIG(E)=-1 THEN IF Y=160 TH 
EN GOSUB 1130 ELSE GOSUB 1190 
840 IF 13=0 THEN 740 :’BYTE AV SPEL 
ARE II OCH 12=0 
350 D=STICK(E) 

860 IF D=7 AND Y=160 THEN IF X>109 
THEN X=X-17 : ’VENSTER 
870 IF D=3 AND Y=160 THEN IF X<143 
THEN X=X +17 : ’H.ØGER 
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380 IF U1<>0 AND Z = 2 THEN IF D=5 TH 
EN Y=160 : X=109 : GOTO 980 ELSE IF 
q Y< >160 THEN Y=58 : X=126 : GOTO 98 

0 K 2 z =i ™en IF D:=5 th 

EN Y=160 : X=109 : GOTO 980 ELSE IF 
q Y< >160 THEN Y=75 : X=126 : GOTO 98 

v-y D o^ A N? Y<>!6° THEN IF x >6 T 
HEN X=X-20 : 10=10-1 : ’VENSTER 

9 THEN F x£;?20 N ? Vol ^ Vf " HØGER <246 
n 2 x=io 6 X T 1 ? venster =7 '' nd y<>160 the 
N 3 S=1 F 4 X 7 1? HØGER D=3 AND Y<>lé0 ™ E 

2 ? 8 *Ig ? = iu^ D 0 J 5? 5 THEN Y=S8 : 10 
112 ? F Æi Y=75 : x = 

109 ? F NER 5 UNDRE Y=75 ™ EN Y=lé0: *= 

=10-12 ? ^NEfPmELLAN THEN Y=75 : 10 
9 ?,°,r-f UTSPRITE4 » < x , Y) , 1.7 : IF Kl< >0 
aJMST 1470 fly TTNING° 

990 GOTO 820 
1000 END PROGRAM SLUT 

1010 ’- 

1020 ;-SUBRUTINER- 

lp?0****** SUBRUTIN TÆRNINGAR OCH 
SLUMP 

1050 J1=0 : J2=0 

1060 S1=INT(RND(-TIME)*100>+1 

1070 S2=INT(RND(TIME)*100)+1 

1080 I=INT(RND(TIME)*6)+1 

1090 IF 8100 THEN S1=S1-1 : PUT SP 

RITE1, (104,1.70) , 1, I : 11 = 1 

1100 IF S2< >0 THEM S2=S2-1 : PUT SP 

RITEO, (138,170) ,1 , I : 12=1 

iåI 8 l55o S1 - 6 *ND I S2-0 H THEN~RETURN E 

“ 30 spelrre y^160 V T£RMIN6 och byte 

ii 4 ?„I? *=i 09 ™EN LINE(103,169) - (1 

li j i?iiéF • f f i i=t i NE ' 137 > 169 ’ - * 154 » 1 

flND 5 

1160 IF X=143 THEN LINE(137.169)-(1 

Mj!!§!i? , ? F iå=ii NE<103 - 149, “ 1120 ' 1 

1170 RETURN 

1180 ’##**•* STRIG=-1 --- 

1190 ’Y=75 OCH Y=58 

1200 IF X=126 THEN IF Z=1 THEN 10=2 

5 : C(I0)=64+U2 ELSE 10=0 : C(I0)=1 

28+U1 : BRICKA PA SKILJEVÆGG 

1210 IF C<10)=0 THEM BEEP : RETURN 

1 f 2 RETURN 10 >12E AND Z= 1 THEN BEEP 

i^ 3 §eturn <I0><128 AND 2=2 THEN BEEP 

1240 IF 10>12 THEN 14=10-13 : IF 14 
<13THEN 14=13-14 : IF Z=2 THEM GOTO 
hJ 1820 : ’ FRAN ØVRE TILL UNDRE HALVA 

1250 IF I0<13 THEN 14=10+13 : IF 14 
>12 THEN 14=24-14+13 : IF Z=1 THEN 
GOTO 1920 :’FRAN UNDRE TILL ØVRE HA 


1260 P.Å I4)=0 ™EN l 37 ^ 

1220 IF U3=l AND Z=2 THEN 1310 

1280 U4=l AND Z=1 THEN 1310 

1290 IF C(10) AND128 THEN IF I4<12 

AND C(14)>128 THEN BEEP : RETURN 2 
1300 IF C(10) AND 64 THEN IF I4>13 

THEN IF C (14) AND 64 THEN BEEP r^RE 

1310 IF X=126 THEN IF Z=2 THEN GOTO 
2360 ELSE 2410 : ’ ÆR DET TILLATET A 
TT KØRA UT BAND LLfllbl A 

1320 IF C (10) AND 128 THEN IF C(14) 

= T 6 H 5 EN^p U fR U ITiRN ELSE IF C ' 14 ’” 28 

1330 IF C(10) AND 64 THEN IF C(T4) 

III \l 1K1 as i:? THIS i!?o 

AR^EJ|UrÅ FLER ÆN 1 I°B E nE E I 2 RAD. = ’ F 

j 3 j2ii F E [4|°Ué!!oTyi$( r§IT 0, - 12S 

ICKÅ 0CH UE Tl^? (E 7R , ^R ERfl GAMMAL ER 
1 2?9«? < ?2i* C(10, -l : IF C(10)=64 OR 

a c gammÅl 2 platI n 0,101=0 : - EN BRICK 

im MIiuI R f N : D « 2 ^ K l-^ 5 é I E 

y2; 24 i SgSUE 900 : ELSE uUui-1 = 
X-6 : Y=75 : 10=1 : GOSUB 900 

1420 K1-I3 TNING AV MARKØR 
Jf?,°^ F " I0< 12 THEN D=3 : GOSUB 900 
. HiGER 

1440 IF 10=12 THEN IF J=15 THEN D=1 
: GOSUB 900 ELSE PLAY-T250BA": GO 

R°SVART : UPP FØR VIT ° CH UTGANG F0 
10=13 THEM IF J=1 THEN D=5 
■ 33SUB 900 ELSE PLAY" T250BA 11 : GOT 
3 r 1560 : NER FØR SVART OCH UTGANG F 

* ^VENSTER 0 > 1 2 THEN D=? : G0SLJB 900 

i|I§ rSLioLSS ?ir? H 

æisi : gosue 2010 : ’ u 

i4R 0 IF U2<>0 AND Z=2 THEN IF C(10) 
AND 64 THEN L=U2 : GOSUB 2010 : ’ 
UTKØRNIMG AV SVART 

THEN C(I0)=C(I0)+1 

- +EN BRICKA 

1?10 J F C(I0)=0 THEN IF J=15 THEM C 
NY PLATS EL3E C(I0)=65 : ’ +EN BRICKA 
1520 ’NY BRICKA 

1530 IF G(I0) >123 THEN I=C(10)-128 
J=15 ELSE I=C(10)-64 : J=1 

is2l49 )°Kil*I? EN I5= - 3 = K=I ELSE 
1330 LINE(X-5,I5+K*4)-(X+9,I5-l+K*4 
lé6å ’TÆRNING=0 

KiR°A^Ni; VID UT “ NG EJ flLLfl PRIC 

POINTdOS, 169)=7 THEN IF J1 
=1 THEN J1=0 ELSE 11=0 : PUTSPRITE1 
i , m 1 ?fAÅ 70> i 1 l 11 : I = X : X=143 : GOS 
UB 1130 : X=I : GOTO 1600 
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1590. IF POINT(137,169)=7 THEN IF 32 
=1 THEN J2=0 ELSE 12=0 : PUTSPRITEO 
,(138,170),1,12 : I=X : X=109 : GOS 
UB 1130 : X=I 

1600 GOSUB 2080 : 1 KONTROLL OM NAGON 
HAR GATT UT HELT 

1610 IF Z=2 THEN COLOR 15 : LINE(75 
,180)-<96,190),12.BF : P3ET(71,180) 
.12 : PRINT#1,K+Ui ELSE COLOR 1 : 
LINE(160,180)-(180,190),12,BF : PSE 
T(157,180),12 : PRINT#1,J +U2 
1620 IF K+U1 =0 THEN F$= J, HEMSPEL" : 
GOTO 1760 

1630 IF J +U2=0 THEN F$="HEMSPEL" : 
GOTO 1770 

1640 IF J=0 AND U2<>0 THEN U3=l : P 
SET<26,180),12 : PRINT#1,"BAND" :’A 
1650 IF K=0 AMD UlOO THEN U4=l : P 
SET(190, 180) , 12 : PRINT#1,"BAND" *.’ 
B 

1660 IF C(13)=131 AND C(14)=13i AND 
C(15)=131 AND C(16)=131 AND C(17)= 
131 THEN F$="ENKELT KRONSPEL" : GOT 
O 1760 

1670 IF C < 8)=67 AND C(9)=67 AND C<1 
O)=67 AND C(11)=67 AND C(11)=67 THE 
N F$="ENKELT KRONSPEL" : GOTO 1770 
1680 IF C(13)=133 AND C(l^)=133 AND 
C(15)=133 THEN F$="DUBBELT KRONSPE 
L" : GOTO 1760 

1690 IF”‘C (10) =69 AND C < 11) =69 AND C 
(12)=69 THEN F$="DUBBELT KRONSPEL" 

: GOTO 1770 

1700 IF C(13)=135 AND C(14)=133 AND 
C(15)=131 THEN F*="TRAPP- SPEL" : 
GOTO 1760 

1710 IF C(10)=67 AND C(ll)=69 AND C 
(12) =71 THEN F$="TRAPP- SPEL" *. GOT 
O 1770 

1720 IF C(13)=143 THEN F*="UPPSPEL" 
: GOTO 1760 

1730 IF C(12)=79 THEN F$="UPPSPEL" 

: GOTO 1790 

1740 PLAY "t250A": RETURN 

1750 ****** SLUT- 

1760 PSET(10,67),12 :PRINT#1, F$ " 
"A$;: GOTO 1780 

1770 PSET(10,67),12 :PRINT#1, F$ » 
"B$5: GOTO 1780 

1780 PSET(86,142),12 :PRINT#1,"Tryc 
k ENTER" 

1790 IF INKEYSK >CHR*(13) THEM 1790 
ELSE RETURN 260 

1800 ****** KONTROLL OM UTGANG ÆR T 
ILLATEN 

1810 ’SPELARE A 
1820 FOR L=1 TO 12 

1830 IF C <L)>128 THEN BEEP : RETU 
RN 

1340 NEXT 

1850 FOR L=19 TO 24 

1860 IF C(L)>128 THEN BEEP : RETU 

RN 

1870 NEXT 

1830 IF 14=1 THEN GOTO 1370 ELSE F 
OR L=I0+1 TO 18 

1890 IF C(L)>128 THEN BEEP : RETU 
RN 

1900 NEXT : GOTO 1370 
1910 ****** SPELARE B 
1920 FOR L=i TO 6 

1930 IF C(L)<128 AND C(L)>64 THEN 
BEEP : RETURN 


1940 NEXT 

1950 FOR L=13 TO 24 
1960 IF C(L)<128 AND C(L)>64 THEN 
BEEP : RETURN 
1970 NEXT 

1980 IF 14=24 THEN 1370 ELSE FOR L 
=7 TO 10-1 

1990 IF C(L) AND 64 THEN BEEP : R 
ETURN 

2000 NEXT : GOTO 1370 
2010 ****** BRICKA SKILJEVÆGGEN 
'2030 ****** KONTROL AV JAN OCH OM N 
AGON HAR GATT UT HELT 
2020 IF J=15 THEN LINE(121,144-L*4) 
- (135,143-L*4) , 1 , BF ELSE LINEU21,- 
3+L*5) - (135, -4+L-&4) , 15, BF ’ 

2030 L=L-1 : IF LOO THEN 2020 
2040 IF C(10)>128 THEN I=C(I0)-128 
ELSE I=C(10)-64 

2050 IF I>1 THEN GOSUB 2460 : 1=1-1 
: GOTO 2050 
2060 C(I0)=0 
2070 RETURN 

2080 ****** KONTROL AV JAN OCH OM N 
-K30N HAR G+TT UT HELT 
2090 1=0 : K=o : j=o 
2100 FOR L=1 TO 24 
2110 IF L<7 AND UlOO THEN IF C(L 
) AND 128 THEN 1=1+1 : IF 6-I<Ul TH 
EN F$=A$+" JAN" : COLOR 1 : RETURN 
1770 :*A JAN 
2120 IF L=10 THEN 1=0 
2130 IF L>18 AND U2<>0 THEN IF C( 
L) AND 64 THEN 1=1+1 : IF 6-I<U2 TH 
EN F*=B*+" JAN" : COLOR 15 : RETURN 
1760 :’B JAN 

2140 IF C(L)>128 THEN K=K+C(L)-12 

8 ELSE IF C(L)>64 THEN J=J+C(L)-64 

2150 NEXTL : RETURN 

2160 ****** KONTROLL OM FLER ÆN 5 B 

AND SPELARE A 

2170 K=0 : 1=1 

2130 IF C(I)=129 THEN IF 1=14 THEN 
K=K+1 : GOTO 2210 ELSE K=0 
2190 IF 10=1 THEN IF C(I)=130 THEN 
K=0 : GOTO 2210 

2200 IF C(I)>129 THEN K=K+1 ELSE K= 
O 

2210 IF K>5 THEN BEEP : RETURN 
2220 IF I<12 THEN 1=1+1 : GOTO 2180 
2230 IF 1=12 THEN 1=24 : GOTO 2180 
2240 IF I>13 THEN 1=1-1 : GOTO 2130 
2250 GOTO 1370 

2260 ***** KONTROLL OM FLER ÆN 5 BA 
ND SPELARE B 
2270 K=0 : 1=24 

2280 IF C <I)=65 THEN IF 1 = 14 THEN K 
=K+1 : GOTO 2310 ELSE K=0 
2290 IF 10=1 THEN IF C(I)=66 THEN K 
=0 : GOTO 2310 

2300 IF C(I)>65 AND C(I)<128 THEN K 
=K+1 ELSE K=0 

2310 IF K>5 THEN BEEP : RETURN 
2320 IF I>13 THEN 1=1-1 : GOTO 2280 
2330 IF 1=13 THEN 1=1 : GOTO 2280 
2340 IF I<12 THEN 1=1+1 : GOTO 2280 
2350 GOTO 1370 

2360 ****** FAR A KØRA UT BAND 

2370 FOR 1=1 TO 6 

2380 IF C(I)<66 THEN 1320 

2390 NEXT : IF C(14) AND 64 THEN U 

2=C(14)-64+U2 : GOTO 1370 

2400 BEEP : RETURN 

2410 ****** FAR B KØRA UT BAND 







30 
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2420 FOR 1=19 TO 24 

§20° IF C<1)=129 0R C(I)-0 THEN 1 

2 ff0 hlEXT : IF C (14) AND 128 THEN 

KsS'iS^ 1 ? 8 ^« 8070 1370 
S 4 I? E rI?IS £S8 era GflMMAL BRICKA oc 

•°K-I*- REN I5= ' 3 = K=I ELSE 

p a ? Simili lyiwvg:?*:?™ i5 = 

2500 ’ ATERSTÆLLA KON 

?5A° X=12A THEN L=-l : GOTO 2580 

W°. iSrS‘4 58 § r 1=2 THEN L 

5| 3 ? ^T0i 5S 0 R 1=4 ° R 1=5 THEN L 

2l 4 ? S0T0 = 2580 R 1=7 ° R 1=8 ™ EN L 

= 0 5 ° G0TO = 2580 R 1 = 10 ° R 1 = 11 ™ EN L 

15f? Gg T o = ålao R 1=13 0R 1=14 THEN L 

252 ? IF 1=15 THEN L 

=-2: GOTO 2580 

2580 IF IS—3 THEN DRAW(X-L,I5+K*4) 

-(X+4+L,I5-l+K*4),P0INT(X+2,2), BF E 

M£2 0 r!*?£*t,, BLINK TILL TÆRNINGARNA 
R. ^2 OCH 2DRAG FINS KVAR PA TÆ 
RNINGEN. 

26} 0 IF_ J 1 = 1 THEN PUTSPR:ITE1 , (104. 1 
70) , JO r l ELSE PLITSPRITEl, <164,176) 
,1,11 : TÆRNING 1 

2620 IF J2=l THEN PUTSPRITEO,<138.1 
70),JO,12 ELSE PUTSPRITEO,(l6s,176) 
,1,12 :’TÆRNING 2 

Éf!§ SI^N 1 THEN J0=0 ELSE 30=1 

2650 ’***** ++++++ BESKRIVNING ++++ 

2660 ’ 

2670 ’ 

2680 ’ 

2690 CLS:YH=0 

2 3090 ME$= " SVENSKT BRÆDSPEL " : GOSUB 

2710 YM=YM-i : MES="... 

..." : GOSUB 3090 

2720 MES="Om det inte går att flvtt 
a någon" : GOSUB 3090 
2730 MES="bricka,stæl1 markøren på 
BYTE." : GOSUB 3690 H 

2740 MES="Sedan trycker båda spelar 
: G °SUB 3090 : YM=YM+1 
2750 MES="Vid byte av tærning stæl 1 
er rnan mar-" : GOSUB 3090 
2760 MES="køren øver tærningen och 
trycker -fire." : GOSUB 3090 : YM=YM 

2770 MES="Vid flyttning av bricka s 
tæller rnan" : GOSUB 3090 
2780 MES="markøren øver kanen och t 
rycker fire." : GOSUB 3090 
2790 GOSUB 3130 : CLS : YH=0 
2800 MES="REGLER" : GOSUB 3090 
2 ? 1 9,y E$!= ^ s E elet 2 år ut P Å att vit 
skall" : GOSUB 3090 


2820 MES=" f 1 y 11 a alla sina brickor 
till øvre" : GOSUB 3090 
2830 ME$="vænstra 1/4 delen." : GOS 
UB 3090 

2840 MES="Svart skall flytta sina b 
rickor till" : GOSUB 3096 

G0SUB E 3O9o edre hfl9ra 1/4 delen -" : 
2860 GOSUB 3130 : CLS : YM=0 
2870 ME*-“Vit får stælla mer an 1 b 
ricka på" : GOSUB 3090 
||80 12-24." : GOSUB 3090 

2890 ME$="13 kon 24 

" : GOSUB 3090 

2900 MES="n O O O D □ □□□□□□" 

: GOSUB 3090 

2910 MES="0 □ □ o □ o □oonnn" 

: GOSUB 3090 

2920 ME$="" : GOSUB 3090 

2930 MES="o □ O n □ n ononnn" 

: GOSUB 3090 

2940 MES="O □□□□□ □ □□□□□" 

: GOSUB 3090 

2950 MES="1 kon 12 

" : GOSUB 3090 

2960 MES="Svart får stælla mer an 1 
bricka på" : GOSUB 3090 
2970 MES="kDn 1-13." : GOSUB 3090 
2980 GOSUB 3130 : CLS : YM=0 
2990 MES="0m det bara står en brick 
a på konen," : GOSUB 3090 
3000 MES="får mDtståndaren køra ut 
den." : GOSUB 3090 

3010 MES="Det finns flera sætt att 
XÅ22 a A Ett av " : GOSUB 3090 
3020 MES="dem ær att gå ut med alla 
brickor." : GOSUB 3090 
3030 MES="Nær al la brickor finns i 
sista" : GOSUB 3090 

? ?4 ? G E lGÉ t 4090 edelen ’ 11311 m3 " 94 Ut 

3050 MES-"Før mer detaljerade reqle 
r" : GOSUB 3090 

3060 MES="se Svenskt Bræde eller" : 
GOSUB 3090 

3070 MES="Backgammon som liknar Bræ 

de." : GOSUB 3090 

3080 GOSUB 3130 : GOTO 260 

3090 •SKRIV I NITTEN 

3100 XM=( (39-LEN(MES) )/2> 

3110 LOCATE XH,YM : PRINT MES 

3120 YM=YM+2 : RETURN 

3130 ’TRYCK EN TANGENT 

3140 LOCATE 0,23 : PRINT CHRS(27)+" 

P* “ Tryck ENTER. " CHRS(27)+"q" ; 

3150 IF INKEYS="" THEN 3150 

3160 RETURN 

3170 ’svenska tecken 

3180 DATA 50,0,70,8,78,38,78,0 

3190 DATA 0,50,0,70,83,88,70,0 

3200 DATA 20,0,76,8,78,88,73,0 

3210 DATA 50,0,70,8å,Få,8å,8å,0 

3220 ’ ==========i==i==4==4==4=== 

3230 ’ = TÆRNINGAR 1-6 o MARKØR = 
3240 ’ ========================== 

3250 data 0 °.0°,0°,00,00,00.00,00,0 

§é,f§6fg6f§6fiåfååfÉs?§6ftå?éåfå6f§6 

3260 ’ =========================== 

3270 DATA 00,06,00,OF,00,OF.00,06,0 

§6°|6?§å?g6?É6?å6?^6?åå?^6?å6?t6?å6 
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■*■■*•** BRffiDE SPIL. AF SVEN-AKE *■*■-*••*■ 


3290 DATA 00,06.00.OF.00.OF.00,06.0 
0,00,00,00.01,80,03,00.03,00.01,80. 
00.00,00,00,60,00,FO,00,FO,00,60,00 

3300 ’ =========================== 

3310 DATA 60,06,FO,OF, FO,OF,60,06,0 
0,00,00,00.00,00,00,00,00,00,00,00, 
00.00,00,00,60,06,FO,OF,FO,OF,60,06 

3320 ’====== >===================== 

3330 DATA 60,06.FO.OF,FO,OF.60,06.O 
0,00,00,00,01,80,03,CO,03,CO,O1,80, 
00.00,00,00,60,06,FO,OF,FO,OF,60,06 
: ? 5 

3340 * ============================ 

3350 DATA 60,06,FO,OF,FO.OF.60.06,O 
O,00,00,00,60,06,FO.OF,FO,OF,60.06, 
00,00,00,00,60,06,FO,OF,FO,OF,60,06 

3360 ’============================ 

3370 DATA 20,00,50,00,A8,00,50,00.2 
0,00,00,00,00,00,00,00,00,00,00,00, 
00,00,00,00,00,00,00,00,00,00,00,00 
:* MARKØR 


RETTELSER TIL SVI 


60 SCREEN,O : COLOR 12,12,12 : SCRE 
EN1 : DEFINTI-J 

270 COLOR15 : CLEAR : SCREEN 0,0 : 
WIDTH 39 : DIM C(25) : DEFINT D-Z : 
CLICK OFF 

280 RESTORE 3210 : FOR 1=0 TO 7 : 
READ A* : VPOKE 2520 + 1, VAL ( "8cH"+A$) 

: NEXT I 

650 L0CATE126,161 :PRINT”B" : LOCAT 
E126.169 : PRINT "Y" :L0CATE126,177 
I PRINT "T" : LQCATE126,185 : PRINT 
"E" 

770 IF Z=1 THEM Z=2 : E=A : COLOR 1 
5 *. LOCATE 95- <LEN(A*>*6) , 170 : PRI 
NT A$ ELSE Z=i : E=B : COLOR 1 : 

L0CATE165,170 : PRINT B$ 

1610 IF Z=2 THEN COLOR 15 : LINE<80 
,180)-<96,190).12.BF : LOCATE 77,18 
O : PRINT K+Ui ELSE COLOR 1 : LIN 
E(160,180)-(176,190),12,BF : LOCATE 
159,180 : PRINT J+U2 
1640 IF J=0 AND U2<>0 THEN U3=l : L 
0CATE10,180 : PRINT "BINDA BAND" :» 
A 

1650 IF K=0 AND UlOO THEN U4=l : L 
0CATE190,180 : PRINT "BINDA BAND" : 
’B 

1760 LOCATE 10,67 :PRINT F$ " GRATT 
IS "A$;: GOTO 1780 

1770 LOCATE 10,67 : PRINT F* " GRATT 
IS "BS;: GOTO 1780 

1780 LOCATE 96,142 :PRINT"Tryck ENT 
ER" 

2580 IF I5=-3 THEM LINE(X-L,I5+K*4) 
-(X+4+L,15-1+K*4),POINT(X + 2,2) , BF E 
LSE LINE(X-L,I5+K*4)-(X+4+L,15-1 
+K*4),POINT(X+2,138),BF 
2660 RESTORE 3180 :’SVENSKA TECKEN 
2670 FOR J=1 TO 3 : FOR 1=0 TO 7 ; 
READ A$ : VPOKE (2768+1)+(J*8),VAL 
("feH"+A*) : NEXT I : NEXT J 
2680 FOR 1=0 TO 7 : READ M : VPOK 
E 2520 + 1, VAL ( "8iH"+AÆ) : NEXT I 


LILLE SJOV 
RUTINE AF JOHNNY 

1 'LILLE SJOV RUTINE OMSAT 

2 'FRA MSX 2 BASIC TIL MSX1 

3 'AF JOHNNY B GOOD 

4 ******************** HEJ 

5 ' 

10 SCREEN3 

20 COLOR ,10,10:CLS 

30 LINE(80,76)-(176,108),8,BF 

40 FORY=80T0104STEP4 

50 F0RX-84T0172STEP4 

60 READP 

70 IFP=OTHENBEEPELSE100 'MSX 2 RET 
TIL: IFP-0THENSETBEEP1ELSE100 
80 PSET(X,Y),15:BEEP 
90 GOTO 120 

100 'SETBEEP2 'MSX 2 FJERN REMTEGN 
ET 

110 PSET(X,Y),4:BEEP 
120 NEXTX 
130 NEXTY 
140 GOTO 140 

150 DATA O,O,O,O,O,O,O,O,O,O,O,O,O 
,0,0,O,O,O,O,O,O,O,O 
160 DATA O,1,0,1,0,1,1,1,0,1,0,O,O 
,1,0,O,O,1,1,1,0,1,0 
170 DATA O,1,0,1,0,1,0,O,O,1,0,O,O 
,1,0,O,O,1,0,1,0,1,0 
180 DATA O,1,1,1,0,1,1,O,O,1,0,O,O 
,1,0,O,O,1,0,1,0,1,0 
190 DATA 0,1,0,1,0,1,0,O,0,1,0,O,O 
,1,0,O,O,1,0,1,0,O,O 
200 DATA O,1,0,1,0,1,1,1,0,1,1,1,0 
,1,1,1,0,1,1,1,0,1,0 
210 DATA O,O,O,0,0,O,O,O,O,O,O,O,O 
,0,0,O,O,O,O,O,O,O,O 
220 ' 

230 'HELLO RUTINE 
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